use IO::Socket;
my $server = IO::Socket::INET->new(
			Proto	  => 'udp',
			LocalPort => 53,			
			);

die "Couldn't setup server: $@" unless $server;

while ( $server->recv(my $data , 1024, my $flag ) ) {
	print "Got: $data\n";
}