open (FH, "<", $file) or die "cant open file";