Someone

#!/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 <<EOF;
	<html>
	<body bgcolor=white text=black>
	<br><br><br><br>
	<center>ERROR 500</center>
	EOF
}
sub print403
{
	print <<EOF;
	<html>
	<body bgcolor=white text=black>
	<br><br><br><br>
	<center>ERROR 403</center>
	EOF
}

sub print404
{
	print <<EOF;
	<html>
	<body bgcolor=white text=black>
	<br><br><br><br>
	<center>ERROR 404</center>
	EOF
}