#!/usr/bin/perl

use IO::Socket;
my $server_socket = new IO::Socket::INET (
    LocalPort => 13,
    Listen => $SOMAXCONN,
    Proto => 'tcp',
    Reuse => 1)|| die "$!\n";


print "Server laeuft, zum Beenden Strg+C eingeben oder Prozess killen\n";
while (my $client_socket = $server_socket->accept() ) {
   print $client_socket "hallo";
}

#!/usr/bin/perl

$hostname = "localhost";

use IO::Socket;
$client_socket = new IO::Socket::INET (
    PeerAddr => $hostname,
    PeerPort => 13,
    Proto => 'tcp')|| die "Kein Socket... $!\n";

$content = <$client_socket>;
$client_socket->close();
print "Content-Type: text/html\n\n";
print $content."\n";