Select Code to Download

# store a reference to a sub
my $coderef = sub
...
$coderef->();
$coderef->('Bar');
$coderef->();

my $code =<<'CODE';
  print shift || "Foo";
...

my $coderef = eval"sub{$code}";