use strict;
use warnings;
use Net::Ping;

my $ping = Net::Ping->new('icmp');
if ( $ping->ping('127.0.0.1') ) {
    print "alive\n";
} else {
    print "dead\n";
}