Miscellany

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



@processes = ("mysqld","sshd","lighttpd","ctorrent");

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

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

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

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

}
print "$body";