Select Code to Download

# Original code
sub cmd {
...
    }
    ...
}

my $ssh = Net::SSH::Perl->new(...);
open my $outfh, ">", $filename
  or die "Couldn't create '$filename' : $!";
binmode $outfh;
$ssh->register_handler('stdout', sub { print $outfh $_[1]; });