#get a filehandle 
$fh = get_fh_from_file( generate_filename() ); 

if ( print_data( $fh, $data ) ) {
  say "data printed to file: $fh"; 
}
## got: data printed to file: *TRSC::FileUtils::FH;
## expected: '/path/to/file'