Select Code to Download

use strict; 
use Net::SSH2; 
...
select(undef,undef,undef,0.25);
my $len = $chan->read($buf2,$buflen);
print $buf2, "\n";

my $chan = $ssh2->channel(); 
$chan->exec('ls'); 
$chan->read($buf2, $buflen);
print $buf2, "\n";