#!/usr/bin/perl

if (@ARGV != 0) {
  foreach $key(@ARGV) {
    print "$key : $ENV{$key}\n";
  }
} else {
  foreach $key(keys %ENV) {
    print "$key : $ENV{$key}\n";
  }
  print '%ENV = ';
  print %ENV;
  print "\n";
}

