The Monastery Gates

#!/usr/bin/perl -w use strict; use Socket; my $proto = getprotobyname('tcp'); my $host = inet_aton('www.perlmonks.com') || die ("no host: $!\n"); my $paddr = sockaddr_in(80, $host); socket(SOCK, AF_INET, SOCK_STREAM, $proto) || die "Unable to connect socket: $!\n"; connect(SOCK, $paddr) || die "Unable to connect socket: $!\n"; my $get = "GET / HTTP/1.0\x0d\x0aUser-Agent: IE_SUCKS\x0d\x0a\x0d\x0a"; syswrite (SOCK, $get, length($get)); my $data = join '', (); open (OUTT, ">test1.dat") or die "Couldn't open file: $!\n"; syswrite (OUTT, $data, length($data)); close (OUTT); close(SOCK); ##

##

    open (IN, "test1.dat") or die "Couldn't open file: $!\n";
    my $data = join '', ();
    close (IN);
    my ($header, $body) = split /\015\012\015\012/, $data;
    
    map { print "'$_'\n";} split /\015\012/, $header;
    print "\n\n";
    map { print "'$_'\n";} (split /\015\012/, $body)[0..4];

##

##

'HTTP/1.1 200 OK'
'Date: Tue, 12 Dec 2000 05:42:11 GMT'
'Server: Apache/1.3.9 (Unix) mod_perl/1.21'
'Connection: close'
'Content-Type: text/html'


' '
''
'
The Monastery Gates
'
''