#!perl

use strict;use warnings;
use IPC::Transit;
use Data::Dumper;

my $qname = shift or die 'qname required';
while(1) {
    my $m = IPC::Transit::receive(qname => $qname);
    print Dumper $m;
}
