sub validURL {
    my ($self, $url) = @_;
    my $req = new HTTP::Request GET => $url;
    my $res = $self->request($req);    
    my $content = $res->content;
    return 0 if $content =~ /the page you have requested cannot be found/i;
    return 0 unless $content =~ /\S/i;
    return 1;
}