$content = get($url);
$error = 1 unless (defined $content);

##</code><code>##

use HTTP::Request;
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $request = HTTP::Request->new(GET => $url);
my $response = $ua->request($request);
$error = 1 unless ($response->is_success);