Select Code to Download

sub validURL {
    my ($self, $url) = @_;
    my $req = new HTTP::Request HEAD => $url;
...
    return 1;
}