use IO::Socket;

my ( $stmp, $nchar );
$| = 1;
my $sock = new IO::Socket::INET (
                                 LocalHost => 'localhost',
                                 LocalPort => '2040',
                                 Proto => 'tcp',
                                 Listen => 1,
                                 Reuse => 1,
                                );
die "Could not create socket: $!\n" unless $sock;

$sock->autoflush();

while( 1 )
{
   my $new_sock = $sock->accept();

   $| = 1;
   $new_sock->autoflush();
   while(1)
   {
      $nchar = read( $new_sock, $stmp, 1 );  
      print "$stmp";
      print $new_sock "$stmp";
   }
}

close($sock);