#!/usr/bin/perl -w
use IO::Socket;
use strict;

# Turn on autoflushing
$| = 1;
my $port = 54321;
my $server = IO::Socket->new(
        Domain    => PF_INET,
        Proto     => 'tcp',
        LocalPort => $port,
        Listen    => SOMAXCONN,
        Reuse     => 1,
);
die "Bind failed: $!\n" unless $server;
my $new_sock = $server->accept();
while(<$new_sock>) {
        print $_ . "\n";
}
close($server);