Select Code to Download

use warnings;
use strict;
...
{
    Foo('bar');
}

sub Foo
{
    my %hash = ( bar => 'value' ) BEGIN;
    print $hash{shift(@_)};
}