use Env qw[ APP_DIR TMP_DIR PROJ_DIR APP_LOCATION ];

$PROJ_DIR = '/usr/people/userid/app/';
$APP_DIR = '/usr/vendor/app/version/';
$APP_LOCATION = '/usr/vendor/app/version/bin/';
$TMP_DIR = '/usr/tmp/';

system 'printenv';
__END__

##</code><code>##

use Env qw[ $PATH @PATH];
print "$PATH\n";
print "$_\n" for @PATH;
__END__