Help for this page

Select Code to Download


  1. or download this
       my ($operation, @operands) = @ARGV
          or die usage();
    ...
       if ($operation eq 'add') {
          my $sum = add(@operands);
    ...