use IO::Socket;
use strict;
my $port = shift || 10101;
my ($data, $remote );
my $server = IO::Socket::INET->new(
				   Listen    => SOMAXCONN,
				   LocalPort => $port,    
				   Reuse     => 1,
				   Proto     => 'tcp' )
    || die "can't open connection: $!";
while (defined($remote = $server->accept)) {
    $remote->autoflush(1);
    while ( $data = <$remote> ) {
	print $remote $data;
    }
}
close($server);