use CGI: my $q=new CGI; print $q->header; print 'Test';