Select Code to Download

while (my $row = $sth->fetch()) {
    # Must copy since fetch reuses array.
...

    $q->enqueue(share($row));
}

my @queue;

...
    my $item = shift(@queue);
    ...
}