use Socket;

sub post {
	local($res);
	eval {
	local $SIG{ALRM} = sub { die "alarm\n" };
	alarm(10); # Timeout - 10 Sekunden
	$url = shift;
	$content = shift;
	$referer = shift;
	$content_type = shift || "application/x-www-form-urlencoded";
	$content_length = length($content);

	($host, $uri) = ($url =~ m!http://(.*?)(/.*)!);

	socket SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp');
	connect SOCK, sockaddr_in(80, inet_aton($host));

	send SOCK, "POST $uri HTTP/1.0\r\nHost: $host\r\n" .
               "Content-Type: $content_type\r\nContent-Length:" .
               "$content_length\r\n\r\n$content", 0;
	0 while <SOCK> !~ /^\r\n$/;
	$res .= $_ while <SOCK>;
	close SOCK;
	alarm(0);
	};
	return($res);
}