open my    $fh, $file_name;
   open local $fh, $file_name;
   print $fh "Hello World!\n";
   process_file( $fh );