die "Unknown choice: $op_choice\n"
  unless my $cmd = $op_map{$op_choice};