my $req = new HTTP::Request('GET', $url);
my $res = LWP::UserAgent=>new->request($req);
if ($res->is_success) {
    # do something here
} elsif ($res->code == RC_BAD_REQUEST) {
    print "URL: ${\$res->previous->headers->{location}}\n";
} else {
    # do something else
}