perl -we '$op{"+"} = sub { $_[0] + $_[1] }; $op{"-"} = sub { $_[0] - $_[1] }; print $op{$ARGV[1]}($ARGV[0], $ARGV[2]), $/;' 8 - 2