Select Code to Download

#!perl
use strict;
...
print $ssh->prompt . "\n";
print $ssh->host . "\n";
exit;

VinsWorldcom@C:\Users\VinsWorldcom\tmp> test.pl
$VAR1 = \bless( do{\(my $o = 5182840)}, 'Net::SSH2::Mine' );
#
host