open(PIPE, "ps ax |")  || die "cannot open route: $!";
my @lines = grep( /pppd/, <PIPE>); # Zeile, die pppd enthalten               
close(PIPE) || die "can't close pipe: $!";

if (@lines > 1) { # mehr als ein PID gefunden
  for my $line (@lines) {
    my ($pid) = $line =~ /(d+)/; # erste numerische Zahlen enthalten PID
    system( "kill -s KILL $pid"); # besser wäre TERM zu verwenden
  }
  system( "/etc/init.d/pppd start"); # ppd starten
}