#!/usr/bin/perl -w 
use strict;
my $mode=shift @ARGV;
my $logfile=sprintf("/tmp/%s-env.txt",$mode);

open FOUT,"> $logfile" or die "$logfile: $!";
foreach my $key ( sort keys %ENV){
     printf FOUT "%s = \"%s\"\n",$key,$ENV{$key};
}
close FOUT;
system(sprintf "umask >> %s",$logfile);
system(sprintf "id >> %s",$logfile);
system(sprintf "pwd >> %s",$logfile);

exit(0);