#!/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
$@
");
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;