Select Code to Download

sub addn($n)
 {
  my $retsub = sub ($x) { $x + $n }
  return $retsub;
 }

sub addn($n)
 {
...
  my $retsub = sub ($x) { $x + $m }
  return $retsub;
 }