#!/usr/bin/perl -w print <<EOF; Content-type: text/html <P> Here's your whole environment: <br> EOF while(($key,$value) = each %ENV) { print "$key = $value <br>\n"; } __END__