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