#!/usr/bin/perl

use warnings;
use strict;

my $result = `ping -c 4 X.X.X.X`;
if($result =~ /Zeitüberschreitung{4}/gi){
         open(M, "|/usr/sbin/sendmail -t") or die "Can't open sendmail!";
           print M "From: root\@mydomain.de\n";
           print M "To: administrator\@mydomain.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!";
}