gistfile1.pl

#!/usr/bin/env perl

use Net::RabbitMQ

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

if(!$mq){
        print "Constructor didn't return anything.\n";
}

print("Value of mq: $mq\n");
$mq->connect("elephant65.heprc.uvic.ca");
$mq->channel_open(1);
$mq->publish(1, "hello", "Hi from perl");
$mq->disconnect();


[igable@psdev ~]$ ./testmq.pl 
Constructor didn't return anything.
Value of mq: 
Can't call method "connect" on an undefined value at ./testmq.pl line 12.