Select Code to Download

use strict;
my $operator=<STDIN>;
...
  $op_map->{'*'}=sub{print $one * $two . "\n"};
  $op_map->{'/'}=sub{print $one / $two . "\n"};
  }

$op_map->{'camel'}=sub{print "$one is a $two with humps.\n"};