producer.pl

#!/usr/bin/perl                                                                               
use strict;
use warnings;

use utf8;
use Net::Stomp;
use Data::Dumper;

while(1) {
eval {
    my $stomp = Net::Stomp->new( {hostname => 'localhost',
                                  port     => 61613,
                                 });
    $stomp->connect( {login    => 'guest',
                      passcode => 'guest' },);
    while (1) {
        $stomp->send( { destination => 'conntest',
                        body => time() } ) or die "Couldn't send\n";
        sleep(1);
    }
};

print "Outside eval\n";
if ($@) {
    print "In error handler\n";
    print Dumper($@);
}

}