Select Code to Download

#!/usr/bin/perl
use IO::Socket;
...
    peerPort => 4321,
    peeraddr => localhost);
$socket->send('Hello');

send:cannot determine peer address at line 6