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