#!/usr/bin/perl
use strict;
use Data::Dumper;
$Data::Dumper::Indent = 1;
use HTTP::Request;
use PUA;
my $ua = PUA->new();
for(<*.pl>) {
    my $request = HTTP::Request->new('GET',"file://$ENV{HOME}/perlmonks/$_");
    if( my $res = $ua->register($request)) {
        print STDERR $res->error_as_HTML;
    } 
}
print Dumper($ua);