You could use the external protocol such that:

#!/usr/bin/perl

use strict;
use warnings;
use Net::Ping::External qw(ping);

my $alive = ping(host => "127.0.0.1");
print "127.0.0.1 is online\n" if $alive;
[download]