#!/usr/bin/perl -w
use strict;

my $scr = "script.pl"; #put name of script here

print "Content-Type: text/html;\n\n";
*STDERR = *STDOUT;

eval {require CGI};
print $@ if $@;

if (-f $scr)
{
	do "$scr";
	print $@ if $@;
}
else
{
	print "$scr not found";
}