my $ua = LWP::UserAgent->new;
my $response = $ua->request(GET $url);
if($response->is_success){
  ...
}