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

##</code><code>##

{
  local $/ = "";
  $form_data = <>;
};

# $form_data now contains the submitted stuff