use CGI;
my $q = CGI->new();
print $q->header();
[insert your code here]