open(QUEUES, $queuecmd);
my @lines=<QUEUES>;
close QUEUES;
my @queues = grep {s/.*count= *(\d+),.* Queue=or_event_queue\s*/$1/} @lines;
print "$queues[0]\n";