<![CDATA[
#!/usr/local/bin/perl
$body = '<body bgcolor=#000000 text=#ffffff>';
print "Content-type: text/html\n\n";
print "<html><head><title>passwd</title></head>\n";
print "$body<pre>\n";
open(DB,"passwd.txt");
@pot=<DB>;
close(DB);
open(QQ,">dic.txt");
foreach $list (@pot) {
chomp($list);
@list=split(/\:/,$list);
print "@list[0]\n";
print QQ"@list[0]\n";
}
print "end \n";
close(QQ);
exit;
]]>
written by 2代目怒羅絵悶