use CGI;

my $q = new CGI;
print $q->header;