--- lib/PXElator/amt.pm	2009/08/10 12:28:03	191
+++ lib/PXElator/amt.pm	2009/08/12 11:35:15	203
@@ -8,6 +8,7 @@
 use Intel::AMT::NetworkAdministration;
 use Data::Dump qw/dump/;
 use Regexp::Common qw/net/;
+use Net::Ping;
 
 use html;
 
@@ -16,6 +17,12 @@
 	my ( $passwd, $ip ) = split(/\s+/, $amt);
 	( $ip, $passwd ) = ( $passwd, $ip ) if $passwd =~ m/$RE{net}{IPv4}/;
 
+	my $p = Net::Ping->new;
+
+	if ( ! $p->ping( $ip, 0.7 ) ) {
+		return "$ip unreachable";
+	}
+
 	warn "amt $ip ", '*' x length($passwd), "\n";
 
 	$ENV{AMT_HOST} = $ip;