Just a hint...

From 200_ping_tcp.t in the package:

# Hopefully this is never a routeable host
is($p->ping("172.29.249.249"), 0, "Can't reach 172.29.249.249"
[download]

You get:

t/200_ping_tcp.t ..... 1/13 
#   Failed test 'Can't reach 172.29.249.249'
#   at t/200_ping_tcp.t line 48.
#          got: '1'
#     expected: '0'
[download]

From the Test::More manpage:

  # Is the ultimate answer 42?
    is( ultimate_answer(), 42, "Meaning of Life" );
[download]

From the Net::Ping manpage:

$p->ping($host [, $timeout]);

Ping the remote host and wait for a response....the success flag will 
+be 1 if the host is reachable and 0 if it is not...
[download]

Force install and regards, Karl