Select Code to Download

#! perl -slw
use strict;
...
    my $content = get $_;
    ### do something with it.
}

#! perl -slw
use strict;
...
$Q->enqueue( $url ) while ...; ## fetch urls from somewhere and Q them
$Q->enqueue( (undef) x $THREADS );
$_->join for @workers;