#!/bin/perl
use strict;
use warnings;
sub NotFound { return '404'; }
use CGI::Pretty;
use CGI::Carp qw(fatalsToBrowser);
$CGI::Pretty::INDENT = ' ';
my $WP = new CGI::Pretty;
print $WP->header(-status => &NotFound);
####
Status: 404
Content-type: text/html; charset=ISO=8859-1
####