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