use CGI;
$cgi = new CGI;
print << "HEREDOC";
$cgi->p("Test.")
HEREDOC