Select Code to Download

$ perl netssh.pl
...
localhost: Entering Diffie-Hellman Group 1 key exchange.
localhost: Sent DH public key, waiting for reply.
localhost: Received host key, type 'ssh-dss'.

Output:

...
Exit Code:
0

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

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

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