#!/usr/bin/perl -w

use strict;

my %hash;
BEGIN
{
	$hash{APP_DIR} = "/usr/vendor/app/version/";
	$hash{TMP_DIR} = "/usr/tmp/";
	$hash{PROJ_DIR} = "/usr/people/userid/app/";
	$hash{APP_LOCATION} = "/usr/vendor/app/version/bin/";
}

use Env (keys %hash);

foreach my $key (keys %hash) {
    eval("$key=\"$hash{$key}\"");
    print "Eval error '$@'\n" if $@;
    print "  $key=$hash{$key}\n";
}

system("printenv");