use CGI; my $cgi=new CGI; print $cgi->header; print qq~
~;