#!/usr/bin/perl

print "$0: Environment\n";
print "  $_ = $ENV{$_}\n" for ( sort keys %ENV );