#!/usr//bin/perl use Socket; use Carp; my $port = shift; my $proto = getprotobyname('tcp'); socket(Server, PF_INET, SOCK_STREAM, $proto) or die "socket: $!\n"; setsockopt(Server,SOL_SOCKET, SO_REUSEADDR,pack("l",1)) or die "setsockopt: $!"; bind(Server, sockaddr_in($port, INADDR_ANY)) or die "bind: $!"; listen(Server, SOMAXCONN); print "Server an Port $port gestartet\n"; my $paddr; $SIG{CHLD} = \&REAPER; for ( ; $paddr = accept(Client,Server); close Client) { my($port,$iaddr) = sockaddr_in($paddr); my $name = gethostbyaddr($iaddr, AF_INET); print "Verbindung von $name [", inet_ntoa($iaddr),"] an Port $port\n"; while(){print;} print Client "\n\nContent-type: text/html\n\n test\n"; }