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