Select Code to Download

   sub your_function {
...
     # Either way we don't need it any more.
     close OUTFH;
   }

    your_function( $string, \*INPUT, '/tmp/somefile' );

    # print to STDOUT instead of to disk
    your_function( $string, \*INPUT, "&STDOUT" );
...
    open OUTPUT, '> /tmp/somefile'
        or die "/tmp/somefile: $!\n";
    your_function( $string, \*INPUT, "&OUTPUT" );

     open OUTFH, ">$out" or die "$out: $!\n";

     # wrong: given, eg, &STDOUT, creates a file named '&STDOUT'
     open OUTFH, "> $out" or die "$out: $!\n";

     # wrong: also creates, eg, '&STDOUT'
     open OUTFH, '>', $out or die "$out: $!\n";