Select Code to Download

my %hash = ('foo' => 3, 'bar' => 'baz');

...
my $ref = do 'A_tmp_file' or die "Noo: $!";

print "$ref->{'bar'}\n";