Play with Perl Parameters

01_PerlParameters.rb

sub sum{ doit('+', @_) }
sub fact{ mul(1..shift) }
sub mul{ doit('*', @_) }

sub doit
{
    my ($d, @nums) = @_;
    return eval( join($d, @nums) );
}


print fact(5);