#!/usr/bin/perl

@PSaux = `ps aux`;
foreach (@PSaux) {
    if (/^apache/) { 
    $trouvee=true ;
    last;
}
}
if ($trouvee)  { print "Serveur local OK\n";}
else { print "Serveur local Down\n";}