use CGI;
my $q = CGI::new;
print $q->header; # and $q->start_html and *many* more