use CGI;
print CGI::header();
# or
my $q = CGI->new;
print $q->header;