use Env qw(PATH TEMP); print "\$PATH = $PATH\n"; print "\$TEMP = $TEMP\n"; print "\$ENV{'TEMP'} = $ENV{'TEMP'}\n"; $TEMP = "e:\\temp"; print "\$TEMP = $TEMP\n"; print "\$ENV{'TEMP'} = $ENV{'TEMP'}\n";