#!/usr/local/bin/perl
my $anystablehost = 'stable-dns.org';
my @report = ("0", "0", "0", "0", "0");
open (PING, "/sbin/ping -c 5 $anystablehost|") or die $!;
$x=0;
        while (<PING>) {
                if (/.*time=(.*)\sms$/i) {
                        $x++;
                }
        }
close (PING);
if ($x > 0) {
        #print "Ping successfully tested! Netz is good!\n";
} else {
        foreach my $S (@report) {
                open(SPEAKER, ">/dev/speaker") or die $!;
                print SPEAKER "F P 1 F P 1 F P 1 F P 1 F P 1 F P 1 F P 1 F P 1 F P 1FFF";
                close SPEAKER;
        }
}