Idee:
Net::Ping nehmen, ping auf UDP und TCP 53 bei hires-Auflösung und timout auf 1, Ergebnis in eine named-Pipe schreiben.
Alle Prozesse forken oder threaden.

Bitte fragen wie sowas geht, dein Programm hier posten, wenn du nicht weiter kommst; ich kenne deine Programmierkenntnisse und Literatur, die du für Perl zur Verfügung hast, nicht.
Last edited: 2017-05-17 11:27:56 +0200 (CEST)