open(PS_F, "ps - aux | grep perl |") || die "Can't open console\n";
while (<PS_F>) { 
	($pid,$tt,$stat,$time,$comm,$comm1,$comm2) = split;
	$comm .= ' '.$comm1.' '.$comm2;
	if($comm =~ m/Theservice.pl /i) {
		print "Service Already Running\n";
	}
}
close(PS_F);