Select Code to Download

use List::Util qw( reduce );

...
die "Invalid operation.\n" unless exists $ops{$op};

print "$op (@ARGV)= ". $ops->(@ARGV) . "\n";

use List::Util qw( reduce );

...
} keys %ops;

# And so forth.