#!/usr/local/bin/perl
#use strict;
use IO::Socket;
use CGI qw/:standard/;



@processes = ("mysql","sshd","proftps","rtorrent");

for ($t=0;$t<=$#processes;$t++) {

        print "Checking $processes[$t]  \n";

        $running = `ps -e \| grep @processes[$t]`;
        print "$running";


        if ($running =~ /@processes[$t]/) {
                $body="$body\n@processes[$t] -> UP";
        }
        else {
                $body="$body\n@processes[$t] -> DOWN";
        }

}
print "$body";