for my $cmd (keys %$opts) {
  &{$dispatch->{$cmd}}
    or warn "Unrecognized command $cmd!\n";
}