open (INPUT,"$INFILE") or die "\n$filerror\$INFILE",,1;