Select Code to Download

#!/usr/bin/perl -w
use strict;
my %ops = ( '+' => sub { $_[0] + $_[1] },
...
            '*' => sub { $_[0] * $_[1] },
            '/' => sub { $_[0] / $_[1] } );
print $ops{$ARGV[1]}->($ARGV[0], $ARGV[2]), "\n";