sub add($);
sub ladd($);

my $addOne = add(1);
my $laddOne = ladd(1);

&$addOne(0);
&$addOne(1);
&$laddOne(0);
&$laddOne(1);

sub add($)
{
   my $add = $_[ 0 ];
   return sub
   {
      my $num = $_[ 0 ];
      my $sum = $num + $add;
      print "$num + $add = $sum\n";
   };
}

sub ladd($)
{
   local $add = $_[ 0 ];
   return sub
   {
      local $num = $_[ 0 ];
      local $sum = $num + $add;
      print "$num + $add = $sum\n";
   };
}