open FILE, ">>logfile";
foreach keys %ENV {
  print FILE, "$_ => ".$ENV{$_}
}
close FILE;