#!/usr/bin/perl
#print "Content-type: text/html\n\n";
$query = $ENV{'QUERY_STRING'};
if ($query eq "500")
{
&print500;
}
elsif ($query eq "403")
{
$print403;
}
else {
&print404;
}
sub print500
{
print <
ERROR 500
EOF
}
sub print403
{
print <
ERROR 403
EOF
}
sub print404
{
print <
ERROR 404
EOF
}