Select Code to Download

my $return_main = ''; 
foreach my $key (keys %main::) {
    $return_main .= "$key = $main::{$key}\n";
}
print $return_main;

my $return_env = '';
foreach my $key (keys %ENV) {
    $return_env .= "$key = $ENV{$key}\n";
}
print $return_env;