open my $READFILE, '<', $infile or die "Can not open $infile for parsing: $!" ;