my $infile = $ARGV[0];
die "can't read infile\n" if (! -r $infile);