#!/usr/bin/perl

$hostname = "localhost";

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

print $client_socket "HTTP/1.0 /path/index.pl?param1=hallo\n";
print $client_socket "n\n";

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