#!/usr/local/bin/perl       

# you can copy and paste this script
# and save it to a file as mailtest.pl

open PROC, ">proc.test" || die "Couldn't open file for write: $!";

$id = `/usr/bin/id`;
print PROC "ID: $id\n";

print PROC "Environment Variables\n";
@qmail = qw(SENDER NEWSENDER RECIPIENT USER HOME HOST LOCAL EXT EXT2 EXT3 EXT4 DTLINE RPLINE UFLINE);
foreach $key (@qmail) {
  print PROC "$key = $ENV{$key}\n";
}


print PROC "\nSlurp\n";
while ($slurp=<>) {print PROC $slurp;}
close PROC;