1234567891011 use CGI;my $q = new CGI;print $q->header("text/plain");if(defined $ENV{$q->param("env")}) { # printf STDERR "looking up %s=%s\n", $q->param("env"), # $ENV{$q->param("env")}; print $ENV{$q->param("env")};} else { print "undefined";}
use
CGI;
my
$q
= new CGI;
print
->header(
"text/plain"
);
if
(
defined
$ENV
{
->param(
"env"
)}) {
# printf STDERR "looking up %s=%s\n", $q->param("env"),
# $ENV{$q->param("env")};
)};
}
else
"undefined"
;