Help for this page

Select Code to Download


  1. or download this
    sub bad_hacker_no_cookie {
    print "Content-type: text/html\n\n";
     print "<HTML> \n";
...
     print "</H1></CENTER></font></body>";
     exit 0;
}
  2. or download this
    sub bad_hacker_no_cookie {

    print
...
        end_html;

}
  3. or download this
    if ($topic eq "" && $words eq "") {
open (FTXT, "$path_to_text") or die "where's the text file? : $!";
my  @text_file = <FTXT>;
...
print @text_file;
print "</table></div></body></html> \n";
exit;
  4. or download this
    print header;

...

print '</TABLE></DIV></BODY></HTML>';