my %name2pid;
@qpids = `ps -aux | grep q3ded`;
foreach $qpid (@qpids){
	($pid, $name)=(split /\s/, $qpid)[0,-1]
	$name=~s/^(.*)\..*/$1/;
	$name2pid{$name}=$pid;