sub paksa_fork()
{
	  defined(my $pid = fork);
		 if ($pid)
		 {
			 exit;
		 }
		 else
		 {
                      for($i=1;$i<3;$i++)
		       {
		      defined(my $pid = fork);
		        if ($pid)
		           {
			    exit;
			    last;
		           }
		        }
		 }
	
}
paksa_fork();
for(;;)
{
 $jum_runner=0;
                                     open(PROSES_MYSQL, "/bin/ps aux |");
                                     while (<PROSES_MYSQL>) 
                                            {
                                                $tampilan_proses .=  $_;
                                               
($uid,$pid,$cpu,$mem,$vsz,$rss,$tty,$stat,$start,$time,$command,$rest) = split;
                                                if($rest=~/httpd/ || $command=~/httpd/)
                                                  {
                                                   
                                                       $jum_runner++;
                                                       
                                                  } 
  
                                             }

					     close(PROSES_MYSQL);
if($jum_runner>20)
{
		system("/etc/init.d/./httpd restart");
	
	
	
}
else
{
	
	print "\nnormal :$jum_runner \n";
}
	
}