perldoc -q filehandle

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