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

# versus:

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