#print "Content-type: text/plain\n\n";

@temps = ($ENV{'TEMP'},$ENV{'TMP'},'/tmp','~/');
for (@temps) { if (-d) { $temp=$_; last } }
$temp =~ s#[/\\]*##;

$tempfile = "$temp/pl".int(rand(100000));
while (-e $tempfile) {
	$tempfile = "$temp/pl".int(rand(100000));
}

#print "Z:$temp\n";

system "perl 2> $tempfile ".join(' ',@ARGV);

open FP,$tempfile;

while (<FP>) {
	if (!$gotcrap) {
		print "Content-type: text/html\n\n";
		print "-----------PERL SCRIPT PRODUCED STDERR OUTPUT!----------------\n<table border=1><tr><Td><font color=red><pre>\n";
		$gotcrap=1;
	}
	s/</&lt;/g;
	s/>/&gt;/g;
	s/"/&quot;/g;
	s/ /&nbsp;/g;
	s/\t/&nbsp; &nbsp; /g;
	#s/(\r\n)|\n/<BR>\n/g;
	print;
}
if ($gotcrap) {
	print "</pre></font></td></tr></table>\n";
}

close FP;
unlink $tempfile;