Select Code to Download

sub compute {
    my( $opsub, $x, $y, $rev )= @_;
...
        if  $rev;
    return $opsub->($x,$y);
}

sub mul {
    my $mulsub = sub { bless \( $$_[0] + $$_[1] ) };
    return &compute($mulsub,@_);
}