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