Select Code to Download

$foo = bar(@params);  
# You don't know what value $foo has
...
}
sub foo { print "foo: $foo\n"; }
# now $foo is restored!

{
    local $Data::Dumper::Terse = 1;
    $baz = Dumper($data);
}