$opts{h} and HELP_MESSAGE();
$opts{v} and ++$verbose;
$opts{f} and ++$force;
$opts{t} and $table = $opts{t};
die "*** BUG: no handler for -$_.\n" for grep !/^[hvft]$/, keys %opts;