#!/usr/bin/perl
open(OUT,"| nkf -s");
select OUT;
print "<html>\n";
print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">\n";
# print "<!-- 퐁뫙 -->\n";
print "<title>$ARGV[0]</title>\n";
print "<body>\n";
print "<pre>\n";
while(<>) {
    if (/<a name/) { print; next;}
    s/&/\&amp;/g;
    s/</\&lt;/g;
    s/>/\&gt;/g;
    s/\t/    /g;
    print;
}
print "</pre>\n";
print "</body>\n";
print "</html>\n";
