Select Code to Download

#!/usr/bin/perl

...
  $chan->close();
}
close L;

# ./test.pl
Connecting now..
...
libssh2_channel_open_ex(ss->session, pv_channel_type, len_channel_type
+, window_size, packet_size, ((void *)0) , 0 ) -> 0x0
Can't call method "exec" on an undefined value at ./test.pl line 21, <
+L> line 2.
Net::SSH2::DESTROY object 0x8663b6c0