#! perl -slw
use strict;
use threads;
use LWP::Simple;
my @pages = map $_->join, map async(
sub{ get "http://$_[0]"; }, $_
), qw[ www.bbc.co.uk www.ibm.com www.cnn.com www.microsoft.com ];;
print substr $_, 0, 100 for @pages;
__END__
C:\test>1034235.pl
CNN.com International - Breaking, World, Business
<!DOCTYPE html>
<html class="en-gb no-js" lang="en" dir="ltr" xmlns:bi="urn:schemas-microsoft-com:m