Try changing your last "system("printenv")" to:

foreach my $x ( sort keys %ENV ) {
   print "$x  --  $ENV{$x}\n";
}
[download]

Whip me, Beat me, Make me use Y-ModemG.