#!/usr/bin/perl -w
use Net::Ping;

my @hosts = ('10.0.0.10','12.35.236.130');
my $p = Net::Ping->new('icmp') or die "Can't create ping obj: $!";

foreach my $host (@hosts) {
    if(!$p->ping($host, 2)) {
        print "$host down, do something\n";
    }
}
$p->close();