$IP = "192.168.0.1 192.168.0.2 192.168.0.3";
for my $ip_addr (split /\s/, $IP){

 my $p = Net::Ping->new();
         if ($p->ping( $ip_addr ))
             { $my_state->{IP_stat} = 'UP'}    #can't ping
         else{
              $my_state->{IP_stat} = 'unreachable';
              next;
         }
         $p->close();

my $dbh = DBI->connect("dbi:" . $db_type . ":" . $ip_addr . "/" . $service_name, $sysUser, $sysPass );  #can connect