print "$_ => $ENV{$_}<BR>\n" for (keys %ENV);