#!/usr/bin/perlprint<<'eof';Content-Type: text/htmlCGI Environment Variableseofforeach $index (keys %ENV){ print "$index => $ENV{$index} ";}print<<'eof';eof