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