use Env qw(PATH SYSTEMROOT); # or whatever...

##</code><code>##

perl -e"print $ENV{PATH}"