Select Code to Download

use Data::Dumper;
$mail='foo@bar.com';
...

print Dumper($rec);
print Dumper(\%hoh);

$: perl 1149939.pl
$VAR1 = {
...
        };
$: