opendir(PROC,"/proc");
@PROC = readdir PROC;
closedir(PROC);
@PID = grep /[0-9]/, @PROC;
chomp(@PID);
for($k=0;$k<@PID;$k++){
    open(CMDLINE,"<","/proc/$PID[$k]/cmdline") ;
    ($CMDLINE) = <CMDLINE>;
    push(@CMD,$CMDLINE);
    close(CMDLINE);
}

foreach $elem (@CMD){
    if( $elem eq "/usr/sbin/sshd" ){ # <<--
	print "found\n";
    }
    else{
	print "not found\n";
    }
}
exit 1;