#!/usr/bin/perl print<<'eof'; Content-Type: text/html CGI Environment Variables eof foreach $index (keys %ENV){ print "$index => $ENV{$index}
"; } print<<'eof'; eof