use IO::Socket;
$| = 1;

my $c_con = new IO::Socket::INET(
							  LocalHost => '127.0.0.1',
							  LocalPort => '81',
							  Proto => 'tcp',
							  Listen => 1,
							  Reuse => 1
							 );
die "Could not create socket: $!\n" unless $c_con;

my $s_con = new IO::Socket::INET(
							  PeerAddr => 'beispiel.tld',
							  PeerPort => '80',
							  Proto => 'tcp',
								);
die "Could not create socket: $!\n" unless $s_con;


my $client_data = $c_con->accept();
$client_input = <$client_data>; # GET / HTTP/1.1\n
$client_input.= <$client_data>; # host: beispiel.tld\n

print $s_con "$client_input\n"; # an den tatsächlichen HTTP-Server schicken

$result = "";
while ($server_output = <$s_con>)
{
	$result .= $server_output;  # Antwort bekommen...
}

# ??? und hier fängt der Ärger an: ???

$c_con->send($result."\n\n");   #weder das hier noch die folgenden 5 Zeilen sorgen für eine Antwort an den Client(Browser)
print $c_con "$result\n\n";

while (my $c_answer = $c_con->accept()) {
      print $c_answer "$result\n\n";
	  $c_answer->send($result."\n\n");
}

close($c_answer);
close($s_con);
close($c_con);
exit;