Select Code to Download

use strict;
use warnings;
...
$lamb->($u,5); 
print $u;  #> 15
print $d;  #> D

my $lamb = sub { 
  #  our ($d,$e);
  local (*::d,*::e)=\(@_); 
  $::d += $::e ;
};