RosettaCodeData/Task/Sockets/Perl/sockets-2.pl

use Socket::Class;

$sock = Socket::Class->new(
  'remote_port' => 256,
) || die Socket::Class->error;
$sock->send('hello socket world');
$sock->free;