Select Code to Download

my @poll = ({handle => $chan, events => 'in'});
if($ssh2->poll(250, \@poll) && $poll[0]->{revents}->{in}) {
    print $buf while defined ($len = $chan->read($buf,512))
}

my ($rin, $rout, $ein, $eout) = ('', '', '', '');
vec($rin, $chan, 1) = 1; # tried $ssh2 and $chan, 
...
if (select($rout=$rin, undef, $eout=$ein, 5000)) {
    print $buf while defined ($len = $chan->read($buf,512))
}

#!/usr/bin/perl

...
} else {
    warn "Unable to connect to host $host: $!\n"
}