for my ( $k, $v ) (%opts) {
    if ( $k eq 'h' ) { HELP_MESSAGE(); }
    elsif ( $k eq 'v') { ++$verbose; }
    elsif ( $k eq 'f') { ++$force; }
    elsif ( $k eq 't') { $table = $v; }
    else  { die "*** BUG: no handler for -$k.\n"; }
}