if ($ret eq "OK"){
    my $p=Net::ping->new("icmp");
    my $ret=$p->ping($pc);
      if (! $ret) {
        print "Nicht ereichbar";
        return "";
      }else {
      return $pc);
}