sub openOut
  {
    my $file_handle     = $_[0];
    my $output_file     = $_[1];
    ...
  }