#! perl -slw
use strict;
use threads;
use threads::shared;
use LWP::Simple;

my @urls = qw[
http://news.bbc.co.uk/1/hi/default.stm
http://q-lang.sourceforge.net/qdoc.html
file://localhost/c:/perl/html/index.html
http://search.cpan.org/~karasik/IO-Lambda-1.02/lib/IO/Lambda.pm
http://www.ic.unicamp.br/~meidanis/courses/mc336/2006s2/funcional/L-99_Ninety-Nine_Lisp_Problems.html
];

my @threads;
my %results :shared;

for my $url ( @urls ) {
    push @threads, async{
        printf "%d : fetching $url\n", threads->tid;
        $results{ $url } = get $url
            and printf "%d : got %d bytes\n", 
                threads->tid, length $results{ $url }
            or warn "failed to get $url";
    };
}

print "Waiting for threads";
$_->join for @threads;
print "threads completed";

### process the content here.
print "$_ : ", length $results{ $_ } for keys %results;