Untitled

foreach (@deploys) {
  my $check = $_;
  print "checking $check","...";
  $answer = "OK" if $ping->ping($check);
  print "OK\n" if ($answer == "OK");
  $ping->close();
  while ($answer != "OK") {
    print "$check DOWN\n";
    sleep(3);
    print "checking $check again...";
    my $answer = "OK" if $ping->ping($check);
    $ping->close();
    print "OK\n" if ($answer == "OK");
    print "DOWN\n" if ($answer != "OK");
    }
  }