#!/afs/athena/contrib/perl/perl

foreach (sort keys %ENV) {
  print "$_=$ENV{$_}\n";
}