#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
my $incoming;
my $check;
my @check;
my @command;
my $new_sock;

my $sock = new IO::Socket::INET (
                LocalPort => '8888',
                Proto => 'tcp',
                Listen => 1,
                Reuse => 1,
                );
die "Could not create socket: $!\n" unless $sock;
$new_sock = $sock->accept();
while ($incoming = <$new_sock>){
	print "hi";
        if ($incoming =~ m/.+/){
		print $incoming;
		@command = split / /,$incoming;
		$command[1] =~ s/\W+//g;
		$incoming = "";
		if ($command[0] eq "check"){
		        $check = @check = `ps -ef |grep $command[1]`;
		        print "$check\n@check\n";
		        if ($check >= 12) {
		                print $new_sock "up";
		        } else {
		                print $new_sock "down";
		        }
		}else{
		        print"did not work\n";
		}
	}
}
close $sock;