#!/usr/bin/perl
#-#############################################
	use strict;
	use warnings;
	use IO::Socket qw(:DEFAULT :crlf);
	
#-#############################################
	$/ = CRLF.CRLF;
	my ($data, $host, $path, $socket, $header);
	my $url = 'http://IrgendWo';
	
#-#############################################
	($host, $path) = $url =~ m!^http://([^/]+)(/[^\#]*)!
	or die "URL nicht gültig";

	$socket = IO::Socket::INET->new(
		PeerAddr	=> $host,
		PeerPort		=> 80,
		Proto			=> 'tcp',
		Type			=> SOCK_STREAM
	) or die("keine Verbindung zu $host <br>$@<br>");

	print $socket qq|GET $path HTTP/1.0|.CRLF.CRLF;

	$header = <$socket>;
	$header =~ s/$CRLF/\n/g;
	#print $header;

	print $data while read($socket, $data, 1024) > 0;

	close $socket;

#-#############################################
	exit;