my $infile = shift;
usage()  unless defined $infile && -f $infile;