open (FILE,$file) || die ("cant open file");