Perl - 套接字脚本 - 连接问题

Question

有人可以确认此脚本编码正确并且不应该出现“连接错误”吗？我得到这个作为回应：
状态：500
无法在test0.pl第23行与Server通信。

我不确定这是编码错误，IP错误还是端口错误。

虽然我已经完成了测试，但是我想看看是否有人可以运行这个脚本（或者告诉我在这个脚本中要编辑什么），看看他们的响应/结果是否成功。

#!/usr/bin/perl

use warnings;
use diagnostics;

use strict;

use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';

use IO::Socket;

my $socket;

my ($hostIP, $hostPort);

# ENTER YOUR SERVER/PORT NUMBERS FOR TESTING:
$hostIP  = "xx.xx.xx.xx";
$hostPort = "xxxx";

print "Content-type: text/html\n\n";

$socket = IO::Socket::INET->new(PeerAddr => $hostIP,
                                PeerPort => $hostPort,
                                Proto    => "tcp",
                                Type     => SOCK_STREAM)
          or die "Unable to communicate with Server";

$socket->close;