for ( keys %opts ) {
    /h/ ? HELP_MESSAGE() :
    /v/ ? ++$verbose :
    /f/ ? ++$force :
    /t/ ? $table = $opts{$_} :
    die "*** BUG: no handler for -$_.\n";
}