sub bad_hacker_no_cookie { print "Content-type: text/html\n\n"; print " \n"; print " \n"; print "

!Unauthorized Access!\n"; print "
"; print "Hey bub, stop messin' with my News Page!\n"; print "
You are at IP address $user !"; print "

"; exit 0; } ##

##

sub bad_hacker_no_cookie {

    print
        header,
        start_html( -bgcolor => '#000000', -text => '#99ccc'),
        h1( { -align => 'center' },
            '!Unauthorized Access!',
            br(),
            font( { -color => 'red' },
                "Hey bub, stop messin' with my News Page!",
                br(),
                "You are at IP address $user !",
            ),
        ),
        end_html;

}
##

##

if ($topic eq "" && $words eq "") {
open (FTXT, "$path_to_text") or die "where's the text file? : $!";
my  @text_file = ;
open (FHTML, "$path_to_header") or die "where's the html file? : $!";
my  @html_file = ;
print "Content-type: text/html\n\n";
print @html_file;
print @text_file;
print " \n";
exit;

##

##

print header;

open( FHTML, $path_to_header ) or die "where's the html file? $path_to_header : $!\n";
print while ;
close FHTML or die "Blahblah $path_to_header $!\n";  #you forgot to close these filehandles

open( FTXT, $path_to_text ) or die "where's the text file? $path_to_text : $!\n";
print while ;
close FTXT or die "Blahblah $path_to_text $!\n";

print '';

!Unauthorized Access!\n"; print ""; print "Hey bub, stop messin' with my News Page!\n"; print "You are at IP address $user !"; print "

!Unauthorized Access!\n"; print "
"; print "Hey bub, stop messin' with my News Page!\n"; print "
You are at IP address $user !"; print "