#!/usr/bin/perl -w use strict; use warnings; use CGI qw(-debug escapeHTML -oldstyle_urls); my $q = CGI->new(); print $q->header('text/html'); print "\n"; print "\n"; print "

Hello, World

\n"; print "

\n"; print "Environment variables:\n"; print "
\n"; foreach (sort keys %ENV) { print escapeHTML($_)." => ".escapeHTML($ENV{$_})."\n"; print "
\n"; } print "

\n"; print "\n"; print "\n";