use strict;
use POE           qw(Component::Server::TCP);

POE::Component::Server::TCP->new(
   Port               => 2000,
   ClientInput        => \&event_tcp_incoming,
);

sub event_tcp_incoming {
   my ($heap, $kernel, $input) = @_[HEAP, KERNEL, ARG0];
   print "Received: $input\n";
}