use CGI;
my $q=new CGI;
print $q->header("application/x-perl").`cat $0`;