sub ENV { defined $ENV{$_[0]} ? $ENV{$_[0]} : 'undefined' }
print "$_ is ", ENV($_), "\n" for qw(many environment variables);