#!/bin/perl -w
# call with URL's to get
use strict;

foreach( @ARGV)
  { parseurl( $_); } 

sub parseurl
  { my( $url)= @_;
    pipe( README, WRITEME) or die  "cannot create connected pipes: $!";
    if( my $pid= fork)
      { # parent code: parse the incoming file
        close WRITEME; # no need to write
        while( <README>) { print "parent: $_"; }
        close README;
      }
    else
      { # child
        require IO::Socket;   # we'll use a simple socket
        require URI;          # to parse the url

        my $uri=  URI->new( $url);

        print "url:       ", $url,            "\n";
        print "scheme:    ", $uri->scheme,    "\n";
        print "host:      ", $uri->host,      "\n";
        print "path:      ", $uri->path,      "\n";
        print "port:      ", $uri->port,      "\n";
        print "authority: ", $uri->authority, "\n";
        print "canonical: ", $uri->canonical, "\n";

        my $address = $uri->host;
        my $port    = $uri->port;   
        $address.= ":$port" unless( $address=~ /:$port$/);

        my $remote = new IO::Socket::INET( $address)
          or die "Couldn't connect: $@";
        if( $uri->scheme eq 'http')
          { print $remote "GET " . $uri->path . " HTTP/1.0\n";
            print $remote "Host: " . $uri->host . "\n\n";
            $|=1;
            # skip until the end of the header
            my $status;
            while( <$remote>) 
              { print "header (discarded): $_"; 
                last if m/^\s*$/ 
              };
          }
        else
          { die "protocol ", $uri->scheme, "not supported"; }

        while( <$remote>) { print WRITEME $_; }
        close WRITEME;
      }
  }