DSL reconnect problem

#!/usr/bin/perl

# Output diverser Dienste abfragen und gegebenenfalls neu starten, wenn diese
# nicht mehr reagieren

# welche Dienste sollen alle unbedingt laufen ?

@dienste = ("rcadsl", "rcsendmail", "rcsshd", "rcamavis", "rcsquid");

foreach $dienst (@dienste) {
        $dienst1 = `/usr/sbin/$dienst status`;
        if ($dienst1 !~ /OK|running/s) {
                # oh, da läuft was nicht wie es soll. da restart meist
                # dann auch nicht geht, machen wir stop und start
                print "-- ACHTUNG: $dienst läuft nicht. Versuche neu zu starten ...";
                $dienst2 = `/usr/sbin/$dienst stop`;
                $dienst2 = `/usr/sbin/$dienst start`;
                if ($dienst2 !~ /OK|running|done/) {
                        # mist, ging wieder nicht. da ist was ganz im argen. 
                        print "Mist. Wieder fehler mit $dienst ($dienst2)\n";
                }
        }
}

exit;

#!/usr/bin/perl

$ping = `ping -c 2 testdomain.de`;

if ($ping !~ /2 packets transmitted/s) {
        # es läuft nix, neu starten der dienste
        $response = `kill \`cat /var/run/ppp0.pid\``;
}