#! perl -slw
use strict;
use threads;

my @threads = map async( sub{
    my( $num, $sleep ) = @_;
    print "started HTTP CALL";
    print "done with HTTP CALL return results";return $num;
},

print "Done with 10 HTTP CALLS RETURN RESULTS", $_->join for @threads;

# I am assuming @threads now holds the 10 results for each child process. Correct?