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");