print_env {
   foreach $key (keys(%ENV)) {
      print $key, " = ", $ENV{$key}, "\n";
   }
}