my $ret = GetOptions( ... );
die "usage: $0 [options]\n" unless $ret;