my $op = shift @ARGV;
if ( $op eq 'add' ) {
    my $rtn = add( @ARGV );
    print "The sum is: $rtn\n";
} elsif ( $op eq 'multiply' ) {
    my $rtn = multiply( @ARGV );
    print "The product is: $rtn\n";
}