Help need on Net::SSH::Perl

--===============1777620407==
Content-Type: multipart/alternative; boundary="0-1193112515-1255098257=:44877"

--0-1193112515-1255098257=:44877
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

Hi,

This is my first mail to Active Perl community.
My name is Venkata rama Krishna Boddu, working in Hyderabad, India


I'm basically dealing with rebooting of a remote Windows Machine. Please se=
e my sample code below.

Looks like after rebooting the remote Windows Host, the SSH Connection Hand=
le is becaming unusable, even though the Connection Handle Object is still =
present in the Memory.

If there any variable or method in the connection handle, which I can call =
to check, whether connection is reset by the Remote Windows Host or not.=20

I want to place this check in the Code mentioned in RED color below.


use Net::SSH::Perl;

my $connectionHandle =3D Net::SSH::Perl->new("10.180.12.167");
$connectionHandle->login("administrator", "quantum");

my ($output, $err, $exitStatus);
($output, $err, $exitStatus) =3D $connectionHandle->cmd("ipconfig & hostnam=
e");
print "Output: $output\n" if defined($output);
print "Error: $err\n" if defined($err);
print "Exit Status: $exitStatus\n" if defined($exitStatus);

($output, $err, $exitStatus) =3D $connectionHandle->cmd("shutdown /r /f /t =
00");
my $time=3D2 * 60;
print "Sleeping for $time\n";
sleep($time);

if ( == ){
                   $connectionHandle =
=3D Net::SSH::Perl->new("10.180.12.167");
}
($output, $err, $exitStatus) =3D $connectionHandle->cmd("ipconfig & hostnam=
e");
print "Output: $output\n" if defined($output);
print "Error: $err\n" if defined($err);
print "Exit Status: $exitStatus\n" if defined($exitStatus);


Thanks
Venkata Rama Krishna Boddu =0A Now, send attachments up to 25MB=
with Yahoo! India Mail. Learn how. http://in.overview.mail.yahoo.com/photo=
s
--0-1193112515-1255098257=:44877
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable