sub get_url { my $url = $q->dequeue); get($url); print "Retrieved $url\n"; }