Select Code to Download

#!/usr/bin/perl;
use Modern::Perl;
...

$chan->close();

Connecting to 127.0.0.1
libssh2_channel_open_ex(ss->session, pv_channel_type, len_channel_type
+, window_size, packet_size, ((void *)0) , 0 ) -> 0x11353dc
output is: 1
Net::SSH2::Channel::DESTROY
Net::SSH2::DESTROY object 0x9b745c