Inspired by netcat :)


#!/usr/bin/perl
use IO::Socket::INET;
use JSON;
use Data::Dumper;
use WWW::Curl::Simple;

# flush after every write
$| = 1;

my ($socket,$data);

$socket = new IO::Socket::INET ( PeerAddr => '192.168.1.131', PeerPort => 10000, Proto => 'udp' ) ;

$req1 = "{\"msgId\":6 ...