my $Usage = "Usage: $0 -a [-b arg] whatever ...\n";

getopts( ... ) or die $Usage;