Untitled

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


$SERVER="asgard.ne.tld";
@uptime = `uptime`;

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

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


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

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

}
print "$SERVER
@uptime[0]
$body\n";