I tried the timeout, but the result was the same. The debugging output that I get basically shows nothing from $!, and the return value of $ssh->run_ssh() is always 1, regardless if it's a success or failure.

Here is the result of enabling debugging (for the offending server -- hugger):

Spawned 'ssh -e none  sebrint@hugger'
        spawn id(4)
        Pid: 22388
        Tty: /dev/pts/7
        Expect::spawn('Expect=GLOB(0x8074f40)','ssh -e none  sebrint@h
+ugger') called at /vol/perl/5.8/lib/site_perl/5.8.1/Net/SSH/Expect.pm
+ line 132
        Net::SSH::Expect::run_ssh('Net::SSH::Expect=ARRAY(0x8074f58)')
+ called at ./dumpadm_oz.pl line 33
        eval {...} called at ./dumpadm_oz.pl line 32
Starting EXPECT pattern matching...
        Expect::expect('Expect=GLOB(0x8074f40)',2,'-re','(?-xism:[\s\S
+]+)') called at /vol/perl/5.8/lib/site_perl/5.8.1/Net/SSH/Expect.pm l
+ine 580
        Net::SSH::Expect::_sec_expect('Net::SSH::Expect=ARRAY(0x8074f5
+8)',2,'-re','(?-xism:[\s\S]+)') called at /vol/perl/5.8/lib/site_perl
+/5.8.1/Net/SSH/Expect.pm line 419
        Net::SSH::Expect::read_all('Net::SSH::Expect=ARRAY(0x8074f58)'
+,2) called at ./dumpadm_oz.pl line 47
ssh: connect to host hugger port 22: Connection refused
Starting EXPECT pattern matching...
        Expect::expect('Expect=GLOB(0x8074f40)',2,'-re','(?-xism:[\s\S
+]+)') called at /vol/perl/5.8/lib/site_perl/5.8.1/Net/SSH/Expect.pm l
+ine 580
        Net::SSH::Expect::_sec_expect('Net::SSH::Expect=ARRAY(0x8074f5
+8)',2,'-re','(?-xism:[\s\S]+)') called at /vol/perl/5.8/lib/site_perl
+/5.8.1/Net/SSH/Expect.pm line 420
        Net::SSH::Expect::read_all('Net::SSH::Expect=ARRAY(0x8074f58)'
+,2) called at ./dumpadm_oz.pl line 47
Closing spawn id(4).
        Expect::hard_close('Expect=GLOB(0x8074f40)') called at /vol/pe
+rl/5.8/lib/site_perl/5.8.1/Expect.pm line 894
        Expect::_multi_expect(2,'undef','ARRAY(0x81a82b8)') called at 
+/vol/perl/5.8/lib/site_perl/5.8.1/Expect.pm line 565
        Expect::expect('Expect=GLOB(0x8074f40)',2,'-re','(?-xism:[\s\S
+]+)') called at /vol/perl/5.8/lib/site_perl/5.8.1/Net/SSH/Expect.pm l
+ine 580
        Net::SSH::Expect::_sec_expect('Net::SSH::Expect=ARRAY(0x8074f5
+8)',2,'-re','(?-xism:[\s\S]+)') called at /vol/perl/5.8/lib/site_perl
+/5.8.1/Net/SSH/Expect.pm line 420
        Net::SSH::Expect::read_all('Net::SSH::Expect=ARRAY(0x8074f58)'
+,2) called at ./dumpadm_oz.pl line 47
spawn id(4) closed.
SSHProcessError The ssh process was terminated. at ./dumpadm_oz.pl lin
+e 47
Closing spawn id(4).
        Expect::hard_close('Expect=GLOB(0x8074f40)') called at /vol/pe
+rl/5.8/lib/site_perl/5.8.1/Expect.pm line 1621
        Expect::DESTROY('Expect=GLOB(0x8074f40)') called at ./dumpadm_
+oz.pl line 0
        eval {...} called at ./dumpadm_oz.pl line 0
[download]

Thanks!

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.