Select Code to Download

 
[01]Title[02][1C]payload[03]number[04]

...
[1C] = ASCII FS
[03] = ASCII ETX
[04] = ASCII EOT

use strict;
use IO::Socket;
...
} 

close($sock);

use strict;
use POE           qw(Component::Server::TCP);
...
   my ($heap, $kernel, $input) = @_[HEAP, KERNEL, ARG0];
   print "Received: $input\n";
}