open (FILE, '>'.$file) || die "Couldn't open $file for writing ($!)";