Using PcLinuxOS 2007, and Apache Server; what does this code have a problem with?
This code doesn't work and I get a 500 Error! But the funny thing is that I always have to download the error and view it in a text editor.

Code:
#!/usr/bin/perl


#########Use statements#########
use warnings;
use strict;
use CGI;

#########Var#########
our $date = localtime();
our $host = remote_host();
our $referer = referer();
our $html = new CGI;

#########Subs#########
print $html->header('text/html');
print <<EOF;
	<html>

		<head>

			<title>
			Perl Output
			</title>

			<meta http-equiv="description" content="Output for Perl Script Dynamic">
			
		</head>


		<body style="background-color: #67B720">

		<h4>
		Hello! Today's Date is: $date
		</h4>

		<p>
		Your <em>host</em> is $host
		</p>

		<p>I don't know what this means: $referer</p>

		</body>

	</html>
EOF

sleep 1;
print '1';

sleep 1;
print '2';

sleep 1;
print '3';

sleep 1;
print 'GO!!';

print redirect('http://www.johnjohn.com');


# Note: you can use $html->save($date)
# But you have to open a file handle for it first!