: Reading configuration data C:/tmp/.ssh/config : Reading configuration data /etc/ssh_config : Connecting to XXXX.com, port 22. : Socket created, turning on blocking... : Remote version string: SSH-2.0-OpenSSH_4.2 : Remote protocol version 2.0, remote software version Ope : Net::SSH::Perl Version 1.30, protocol version 2.0. : No compat match: OpenSSH_4.2. : Connection established. : Sent key-exchange init (KEXINIT), wait response. : Algorithms, c->s: 3des-cbc hmac-sha1 none : Algorithms, s->c: 3des-cbc hmac-sha1 none : Entering Diffie-Hellman Group 1 key exchange. : Sent DH public key, waiting for reply. : Received host key, type 'ssh-dss'. : Host 'ats.vzbi.com' is known and matches the host key. : Computing shared secret key. : Verifying server signature. : Waiting for NEWKEYS message. : Enabling incoming encryption/MAC/compression. : Send NEWKEYS, enable outgoing encryption/MAC/compression : Sending request for user-authentication service. : Service accepted: ssh-userauth. : Trying empty user-authentication request. : Authentication methods that can continue: publickey,gssaic,password. : Next method to try is publickey. : Next method to try is password. : Trying password authentication. : Login completed, opening dummy shell channel. : channel 0: new [client-session] : Requesting channel_open for channel 0. : channel 0: open confirm rwindow 0 rmax 32768 : Got channel open confirmation, requesting shell. : Requesting service shell on channel 0. Executing show running-config : channel 1: new [client-session] : Requesting channel_open for channel 1. : Entering interactive session. : Sending command: ls : Requesting service exec on channel 1. : channel 1: open confirm rwindow 0 rmax 32768

#!/usr/bin/perl use Net::SSH::W32Perl; $ENV{HOME} = "C:/tmp"; # Configuration Section $username = "USERNAME"; $password = "PASSWORD"; $hostname = "XXXX.COM"; print("Connecting to $hostname\n"); my $ssh = Net::SSH::W32Perl->new($hostname, debug => '1'); $ssh->login($username, $password); my ($out, $err, $exit) = $ssh-> cmd("ls"); print("$out\n"); $ssh->close;