Select Code to Download

use strict;      # always!

...
elsif ($op =~ /multiply/) {
    print "The product is: ", multiply(@ARGV), "\n";
}

sub add {
   my $sum = 0;
...
   }
   return $sum;
}