die("Usage: $0 [-c] [-v] <-f pattern-file | subnet/netmask> file [file...]\n")  unless ( (defined $#ARGV && $#ARGV > -1) || (defined $opt_f) ) ;
...
if ( defined $#ARGV && $#ARGV > -1) {