#!perl -w
use strict;
use IO::All;

# create server
my $socket = io('localhost:1080')->fork->accept;

print "Connection opened\n";

# slurp incoming data
my $xml = $socket->slurp;

print "Data recieved:\n";
print $xml;