open (MYFILE, "> $file") || die "Couldn't open $file: $!\n";