#! perl -slw use strict; use threads qw[ async ]; my $thr = async { require LWP::Simple; return LWP::Simple::get( 'http://www.perlmonks.com/' ); }; print 'GOT PAGE: ', length $thr->join, ' bytes'; $thr = async { require LWP::Simple; return LWP::Simple::get( 'http://www.perlmonks.com/' ); }; print 'GOT PAGE: ', length $thr->join, ' bytes'; print for sort keys %INC;