Select Code to Download

#!perl -w
use strict;
...
    }
    #$channel_id->close();
}

#!/usr/bin/perl -w
use strict;
...
    close($fileHandler);
    return 0;
}

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'