open (DATA, "$indir/$infile") or die "Open failed on $indir/$infile: $!\n";