use strict;
use warnings;

use Test::More tests => 7;
use Net::Ping;

my $p = Net::Ping->new;
for my $host (qw/www.perlmonks.org tcpbin.com/) {
    ok $p->ping ($host), "$host pinged";
}
for my $host (qw/www.ibm.com www.whitehouse.gov/) {
    ok !$p->ping ($host), "$host blocks pings";
}
for my $host (qw/lsdfskf wocka.wocka 192.168.1/) {
    ok !$p->ping ($host), "$host doesn't respond because it won't resolve";
}