--- lib/PXElator/amt.pm	2009/08/19 11:51:51	263
+++ lib/PXElator/amt.pm	2009/08/28 22:29:08	330
@@ -8,9 +8,9 @@
 use Intel::AMT::NetworkAdministration;
 use Data::Dump qw/dump/;
 use Regexp::Common qw/net/;
-use Net::Ping;
 
 use html;
+use ping;
 use CouchDB;
 
 sub info {
@@ -20,9 +20,7 @@
 
 	$ip ||= $client_ip;
 
-	my $p = Net::Ping->new;
-
-	if ( ! $p->ping( $ip, 0.7 ) ) {
+	if ( ! ping::host( $ip ) ) {
 		return "$ip unreachable";
 	}