use CGI; my $q = CGI->new; print $q->header; print "", "\n"; # .....