1.1 misho 1: #!/usr/bin/perl 2: use CGI qw/:standard/; 3: print header ( -status => 404 4: -type => 'text/plain' ); 5: print ("send404\n");