open (THEFILE, ">$file") or die "Could not create $file - $!\n";