Select Code to Download

#!/usr/bin/perl -w
use strict;
...
use Data::Dumper;

print Dumper(\%ENV);

trizor@trap:/home$ sudo su - greg -c /home/env.pl 
$VAR1 = {
...
          'USER' => 'greg',
          'LANG' => 'en_US.UTF-8'
        };