use Net::RabbitMQ;
my $mq    = Net::RabbitMQ->new();
# ...

# this waits, how do I time it out, say 30s
my $frame = $mq->recv();