sub Ping
{ my $ip = shift;   # Übergabe IP-Adresse
  my $pingmax = PingMax;
  my $answer = `ping -w 1000 -n $pingmax $ip`;
  DosToWin \$answer;   # Umlaute umwandeln
  my $number = scalar $answer =~ s/(Bytes=32)/$1/mg;
  $number == PingMax or do
  { $answer =~ s/^\s*\n//;   # führende Leerzeilen löschen
    $answer =~ s/\n\s*\n/\n/g;   # Leerzeilen löschen
  };
  return $number;
}