use Net::Ping;
use strict;
my $p;
my $host = '192.168.254.254';

$p = Net::Ping->new();