local *FILE;
  open( FILE,  "> $file" ) or die "Couldn't create '$file' : $!\n";
  ...
  close( FILE );