Select Code to Download

$text = sub {
<<EOT;
...

  print &$text;
}

$n = sub {1};
$m = sub {&$n*2};
...
print &$s;
$n = sub {2};
print &$s;