open (FILE,$file) || die "Cant open $file: $!\n";