Select Code to Download

#select(undef,undef,undef,0.2);
select(undef,undef,undef,0.001);

my $chan = $ssh->channel() or die "create channel:$!\n";
$chan->shell() or die("open shell: $!\n");
...
$chan->write("ls\n") or die("write to channel: $!\n"); while ( <$chan>
+ ) {
   print $_;
}