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); |