Select Code to Download

my $ssh2 = Net::SSH2->new();
$ssh2->debug(1);
...
      $chan->write("dir\n") and print "dir fired\n";
      select(undef,undef,undef,0.2) and print "select command fired\n"
+;
      print $buf while ($len = $chan->read($buf,512)) > 0;

C:\Compatibility_Automation_Temp>perl SSH2.pl
connetced
...
Net::SSH2::Channel::read(size = 512, ext = 0)

##here, this program stuck

sub shell {
    $_[0]->process('shell')
}