Hello, I've been teaching myself on how to code with perl. My current project that I am working on is socket programming. I would like to transmit a message from one server to another. When I attempt to execute my client code, the following error displays, "send: Cannot determine peer address at ./myfirstcallsock.pl line 11"

#!/usr/bin/env perl
use strict;
use warnings;
use IO::Socket;
my $sock1 = new IO::Socket::INET (
        PeerAdder => '<REMOVED-FROM-PUBLIC>',
        PeerPort => '7070',
        Proto => 'tcp',
        );
my $msg="Hello, the message was successfully sent!\n";
$sock1->send($msg);
close($sock1);

The "<REMOVED-FROM-PUBLIC>" lists the destination address that I am attempting to connect to. I've moved this script on the same server and replace the ip address with '127.0.0.1" but I still get the same error. Any help is appreciated.

This question has already been answered. Start a new discussion instead.