Perl ping
<pre name="code" class="html">use Net::Ping; $p = Net::Ping->new("icmp"); while (1==1){ open (LIST,"<","list.txt") || die "$!\n"; while (<LIST>) {chomp; my $host=$_; if ($p->ping($host)) {print "$host is alive\n";} else {print "$host is die\n"}; } close LIST; sleep(5); } 192.168.11.1 192.168.10.1 192.168.5.1