Select Code to Download

use strict;
use warnings;
...
bar(oranges => 18);
print bar("bananas"), "\n";
print bar("oranges"), "\n";

sub bar {
    my $key = shift;
...
    };
    $Bar{$key};
};