#!/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), 
      $WP->h1("404 Page Not Found");