use CGI qw(:standard);
my $cgi = CGI->new();
print $cgi->header;
print $cgi->start_html;
my $rv = `set `;  # see your environment

print $cgi->p( $rv );
print $cgi->end_html;