Simple script to 'cat' an UDP port

udpcat.pl

#!/usr/bin/perl
# quick and dirty: Read from a udp socket and print to STDOUT
# usage: udpcat.pl <host> <port>
#    or: udpcat.pl <host>:<port>

use strict;
use warnings;

use IO::Socket::INET;

my $local = shift;
$local .= ":" . shift unless $local =~ /:/;

my $socket = IO::Socket::INET->new(
    LocalAddr => $local,
    Proto => 'udp',
    ReuseAddr => 1,
) or die $!;

my $buffer;
while( defined( $socket->recv($buffer, 1024) )) {
    print $buffer;
}