топать + ActiveMQ + Perl + не может sysread(): EOF

Question

У меня есть простой педаль эффектов скрипт для подключения к ActiveMQ и когда я запустить скрипт я получаю ошибку ниже «не может sysread(): EOF»

Perl Код сценария:

#!/usr/bin/perl 
use Net::STOMP::Client; 
$stomp = Net::STOMP::Client->new(uri => "stomp://hostname:61616"); 
$peer = $stomp->peer(); 
printf("connected to broker %s (IP %s), port %d\n", 
$peer->host(), $peer->addr(), $peer->port()); 
$stomp->connect(); 
printf("speaking STOMP %s with server %s\n", 
$stomp->version(), $stomp->server() || "UNKNOWN"); 
printf("session %s started\n", $stomp->session()); 
$stomp->disconnect(); 
printf("session ended\n"); 

Может кто-нибудь, пожалуйста, сообщите мне, что я делаю неправильно? Я видел подобный пост, но затем я не видел ответа относительно того же. Проблема находится в $ stomp-> connect();

Answer 1

Debug поможет вам

use Net::STOMP::Client; 
$stomp = Net::STOMP::Client->new(
           uri => "stomp://hostname:61616", 
           debug => "connection api" 
           );