use IO::Socket;
$|++;
IO::Handle->input_record_separator('END');
my $sock = new IO::Socket::INET(
                   LocalHost => 'localhost',
                   LocalPort => 1234,
                   Proto     => 'tcp', 
                   Listen    => SOMAXCONN,
                   Reuse     => 1 ) or die "no socket :$!";
while ($new_sock = $sock->accept()) {
    while ( defined( my $line = $new_sock->getline) ) {
        print "Got: $line\n";
    }
}