- or download this
#!perl -w
use strict;
...
}
#$channel_id->close();
}
- or download this
#!/usr/bin/perl -w
use strict;
...
close($fileHandler);
return 0;
}
- or download this
TCP Connection established with Channel id: 'IO::Socket::INET=GLOB(0x3
+494d8c)'
In send_command sub-routine:-Channel_id: 'IO::Socket::INET=GLOB(0x349
+4d8c)' and command: 'dir'