-my %opts;
-if (!getopts('t:au', \%opts) || @ARGV != 1) {
- print STDERR qq[Usage: $0 [options] <IRSpy-database>
- -t <t1 t2 ...> Space-separated list of targets to check
- -a Check all targets registered in database
- -u Update information in database
-];
+my($dbname, @targets) = @ARGV;
+if (!defined $dbname) {
+ print STDERR "Usage $0: <IRSpy-database> [<target> ...]\n";
+ print STDERR "If no targets are specified, all targets in DB are tested\n";