#!/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);

##</code><code>##

$ echo "/path/to/my/script/above.pl ascron" | at now

##</code><code>##

$ /path/to/my/script/above.pl ascmdlin

##</code><code>##

diff /tmp/ascron-env.txt /tmp/ascmdlin-env.txt