use strict;      # always!

my $op = shift;

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