#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request;
use IO::Handle;

pipe(FROM_PARENT, TO_CHILD)     or die "pipe: $!";
pipe(FROM_CHILD,  TO_PARENT)    or die "pipe: $!";

TO_CHILD->autoflush(1);
TO_PARENT->autoflush(1);

my $pid = fork;

unless ($pid) {
    # Child process
        close FROM_CHILD;
    close TO_CHILD;
    die "cannot fork: $!" unless defined $pid;        
    {
            chomp(my $address = <FROM_PARENT>);
        exit 0 if $address =~ /exit/;
        
            my $ua = LWP::UserAgent->new();
        
        print "Child: getting $address ...\n";
        
        # proxy server
        $ua->env_proxy();
        
        my $req = HTTP::Request->new(GET => "$address");
    
        my $response = $ua->request($req);
        my $http = $response->content;
        print "Child got the goods!\n";
        
        print TO_PARENT $http,"\n";
        print TO_PARENT "end_http_input\n";
        redo;
    }
    exit 0;
}

# Parent process only ...

use Tk;
close FROM_PARENT;
close TO_PARENT;

my $top = MainWindow->new(-title=>"PerlPrimer v.test");
my $button = $top->Button(-text=>"try it!",
        -command=>\&do_it,
        )->pack();
my $quit = $top->Button(-text=>"Exit",
        -command=>sub {
            print TO_CHILD "exit\n";
            exit 0;
        },
        )->pack();
        
MainLoop();

sub do_it {
        # might as well put all these test http requests to good use .
+.. :)
        my $address = "http://www.microsoft.com";
        print TO_CHILD $address;
    my $unblock=0;
    my ($content, $data);
    $top->fileevent(\*FROM_CHILD, 'readable', sub {
            # This is where it hangs ... doesn't matter if I even go d
+own to taking 1 byte at a time ...
            sysread(FROM_CHILD, $data, 32);
            $content.=$data;
            $unblock = 1 if $content =~ /end_http_input/;
        });
    $top->waitVariable(\$unblock);
    $top->fileevent(\*FROM_CHILD, 'readable', "");
    print "Parent: http content was $content\n";
    print "out of loop ....\n";
}
[download]