foreach my $env ( sort keys %ENV )
    {   print "ENV:\t$env\t$ENV{$env}\n"; }