Select Code to Download

sub multiplier_by {
  my $x = shift ;
...
    return $n * $x ;
  }
}

my $m2 = multiplier_by(2) ;
my $m3 = multiplier_by(3) ;

my $i = 5 ;
print $m2->($i) ; # prints 10
print $m3->($i) ; # prints 15

# other syntaxes for $m2, $m3 invokations allowed :-)