Tasks Killen

...
if kill -0 ${PID} 2>/dev/null
then
  # signal angenommen
else
  # signal nicht angenommen
fi
...

if kill -0 $(pidof /usr/sbin/httpd); then echo OK; else echo fehler; fi

#!/usr/bin/perl -w

use WWW::Mechanize;
use Net::SMTP;
my $message = '';  
my $mailserver = 'localhost';  
my $mail_from_addr = 'homepagemonitor@domain.tld';  
my $admin_email = 'admin@pager.tld';  

sub send_mail_to_admin
{
    my ($message) = @_;
    my $smtp = Net::SMTP->new($mailserver,
                              Hello => 'localhost',  
                              Timeout => 60);
    $smtp->mail($mail_from_addr);
    $smtp->recipient($admin_email);
    $smtp->data;
    $smtp->datasend("Subject: Alert from Homepage Monitoring");  
    $smtp->datasend("\n");  
    $smtp->datasend($message);
    $smtp->dataend;
    $smtp->quit;
}

my $url = "http://domain.tld/";  

my $mech = WWW::Mechanize->new();
$mech->get($url);
my $content = $mech->content();

if($content =~ /test_ping/) {
    print "All is fine with homepage on domain.tld.\n";  
} else {
    $message = "Something is wrong with homepage on domain.tld.\n";  
    $message .= "Current content:\n";  
    $message .= $content."\n";  
    &send_mail_to_admin($message);
}