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

##</code><code>##

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

##</code><code>##

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