open my $infile, '<', @ARGV[0]
   or die ....