Select Code to Download

sub next {
    my $self = shift;
...
    $self->{urls} = \@urls;
    return $url;
}

sub next {
    my $self = shift;
    return pop @{$self->{urls}};
}