Select Code to Download

(defun foo (n) 
   (labels ((f (i) (+ i m)))
           f)
)

sub foo {
   my $n = shift;
...
   }
   return \&f;
}

sub foo {
   my $n = shift;
...
   };
   return $f;
}