9 lines
131 B
Perl
9 lines
131 B
Perl
|
use IO::Socket;
|
||
|
|
|
||
|
|
$socket = IO::Socket::INET->new
|
||
|
|
(
|
||
|
|
LocalPort => 4321,
|
||
|
|
Proto => 'udp'
|
||
|
|
);
|
||
|
|
|
||
|
|
$socket->recv($text, 128);
|