#!/usr/local/bin/perl

print "Good Morning!\n";

for $key (sort keys %ENV) {
    print "$key=$ENV{$key}\n";
}