if (grep { not /\.mdb$/i } @ARGV) { print STDERR "All parameters must be MDB files\n"; exit; }