$ perl netssh.pl
localhost: Reading configuration data /Users/username/.ssh/config
localhost: Reading configuration data /etc/ssh_config
localhost: Connecting to www.c2group.net, port 22.
localhost: Remote protocol version 1.99, remote software version OpenSSH_<some_version> FreeBSD
localhost: Net::SSH::Perl Version 1.29, protocol version 2.0.
localhost: No compat match: OpenSSH_<some_version> FreeBSD.
localhost: Connection established.
localhost: Sent key-exchange init (KEXINIT), wait response.
localhost: Algorithms, c->s: 3des-cbc hmac-sha1 none
localhost: Algorithms, s->c: 3des-cbc hmac-sha1 none
localhost: Entering Diffie-Hellman Group 1 key exchange.
localhost: Sent DH public key, waiting for reply.
localhost: Received host key, type 'ssh-dss'.


##</code><code>##

Output:


Exit Code:
0



##</code><code>##

if ($stdout){print "Output:\n$_\n\n";}



##</code><code>##

if ($stdout){print "Output:\n$stdout\n\n";}



##</code><code>##

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  }  sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu" );