Select Code to Download

#!/usr/bin/perl
use strict;
...
print "$_" while <$chan>;
$chan->close;
$ssh->disconnect;

$ ./ssh.pl 
Password: 
...
- [0] revents 0
Net::SSH2::Channel::DESTROY
Net::SSH2::DESTROY object 0x1a055a0