in reply to Net::OpenSSH fastest way to reconnect to a rebooted machine?

Consider http://search.cpan.org/perldoc?Net::Ping:

use Net::Ping;
my $ping = Net::Ping->new ( "tcp", 1 );
$ping->port_number ( 22 );
$ping->ping ( $host );

[download]

Arnon Weinberg Back2Front - The Web Site People

In Section Seekers of Perl Wisdom