Select Code to Download

    #print $channel "$cmd\n";
    #while (<$channel>) {
    print {${$channel}} "$cmd\n";
    while (<${$channel}>) {

#!/usr/bin/perl

...
open ( my $filehandle, ">", "testfile.txt" );
&print_to_fh ( \$filehandle );
close ( $filehandle );

sub print_to_fh
{
...
open ( my $filehandle, ">", "testfile.txt" );
&print_to_fh ( \$filehandle );
close ( $filehandle );

  print {$$ref_to_fh} "Even more stuff\n";