#!/usr/bin/perl

use warnings;
use strict;

my $result = `ping 127.0.0.1`;
if($result =~ /Zeitüberschreitung{4}/gi){
          open(M, "|/use/lib/sendmail -t") or die "Can't open Sendmail!";
            print M "From: ping\@check.de\n";
            print M "To: your\@email.de\n";
            print M "Subject: [Ping failed!]\n\n";
            print M "Ping wurde nicht erfolgreich ausgefuehrt!";
          close(M);
          print "Ping nicht erfolgreich! E-Mail wurde versandt!";
}else{
          print "Ping erfolgreich!";
}