Select Code to Download

if(($ua->request(HTTP::Request->new('HEAD', $url)))->is_success())

my $response = $ua->request(HTTP::Request->new('HEAD', $url));
if ($response->code == 200) {
...
} else {
    # there's something odd with the URL
}