...
my $op = shift or die "You must specify an operation followed by numbers.\n";
###########################################################
die "At least two numbers required.\n" unless @ARGV > 1;
###########################################################
die "Non-numeric input.\n" if grep /\D/, @ARGV;
...