#!/usr/bin/perl

use strict;
use IO::Socket;


my $socket;
my $port = 1234;
my $client;
my $data;

$socket = IO::Socket::INET->new(LocalPort => $port,
                                Type      => SOCK_STREAM,
                                Reuse     => 1,
                                Listen    => 10 )
        or die "konnt server auf $port nicht starten!\n";
        
while ($client = $socket -> accept())
{
    $data = <$client>;
    print "$data";
}

$socket->autoflush(1);