sub next {
    my $self = shift;
    my @urls = @{$self->{urls}};
    
    if (!@urls) {
        return undef;
    }
    my $url = pop(@urls);
    
    
    $self->{urls} = \@urls;
    return $url;
}