use CGI;
my $cgi= CGI->new();
print $cgi->header();
# etc...