my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new('GET' => $url);
my $response = $ua->request($request)

if ($response->is_error) {
    ...
} else {
    ...
}