Select Code to Download

use strict;
use warnings;
...
print Data::Dumper::Dumper($bar);
foo $bar;
print Data::Dumper::Dumper($bar);

$VAR1 = bless( {
                 'six' => 6,
...
          'one' => 'One',
          'two' => 2
        };