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