recv-netcons.pl

#!/usr/bin/perl
use strict;
use warnings;

use Errno;
use IO::Socket::INET;

my $sock = IO::Socket::INET->new(
        LocalPort => 6666,
        ReuseAddr => 1,
        ReusePort => 1,
        Proto => "udp",
    )
    or die "socket: $!\n";

$| = 1;

my $quit;
$SIG{TERM} = sub { $quit = 1 };

while (not $quit) {
    my $buf = "";
    my $peer = recv($sock, $buf, 1024 * 1024, 0);
    if (not $peer) {
        die "recv: $!\n" unless $!{EINTR} or $!{EAGAIN};
    }
    print $buf;
}

Because BSD netcat sucks and socat keeps segfaulting.