#! /usr/bin/perl
use strict;
use warnings;

my $list = `ps -a`;
print STDERR "$list";
my @processLine;
my @processesArray = split("\n", $list);
print STDERR "$processesArray[0]\n";

for (@processesArray)
	{
		if ($_ =~ m/monitor.pl/)
			{
				@processLine = split(" ", $_);
				system ("kill $processLine[0]");
				print STDERR "$processLine[$#processLine] killed.\n";
			}
	}