Select Code to Download

sub make_bin_ops {
    my $op = shift;
...
}
my ($div_OP) = make_bin_ops('/');

sub make_bin_ops {
    $op = shift;
...
my ($div_OP, $mult_OP) = make_bin_ops('/'), make_bin_ops('*');
print &$div_OP(2,2);
print &$mult_OP(2,2);