$mail="recipient\@domain.net";
$linux="sender\@domain.net"; 
$host="X.X.X.X";
$out=`ping -c8 $host | grep -c "bytes from"`;
if($out < 7){
open(MAIL, "|/usr/sbin/sendmail -t");
print MAIL "to:$mail\n";
print MAIL "from:$linux\n";
print MAIL "subject:server down !\n";
print MAIL "hi \n\n";
print MAIL "cannot ping server X.X.X.X \n\n";
print MAIL "Time: ". localtime(time) ." \n";
close(MAIL);
}
exit;