open (DATA, "$indir/$infile") or die "Unable to open $indir/$infile: $!";