#!/usr/bin/perl

use IO::Socket;

socket(SOCKET,PF_INET,SOCK_STREAM, getprotobyname('tcp')) || die "blabla";

$sockaddr = sockaddr_in(13, INADDR_ANY);

bind (SOCKET, $sockaddr) || die "bind tuts nich";

listen(SOCKET, SOMAXCONN) || die "listen tuts nicht";

print "/nWartend\n";

&read();

close(SOCKET);

sub read()
{
    accept(CONNECT,SOCKET);

    while(defined($line= <CONNECT>))
    {
        print $line;
    }

  close(CONNECT);
}