#!perl use CGI qw( :standard ); print header; print < Environment Variables... End_Begin foreach $variable ( sort( keys( %ENV ) ) ) { print < End_Row } print < End_Finish # Must include newline after End_Finish!
$variable $ENV{$variable}