Select Code to Download

use IO::Socket::INET;
my $sock = IO::Socket::INET->new( Proto => 'udp', LocalPort => 4210 );
$sock->recv(my $data, 100) or die $!;
print "<<$data>>\n";