$ENV{http_proxy} = 'http://service:3128';

my $ua = LWP::UserAgent->new;#
$ua->timeout(100);

my $response = $ua->get('http://www.gom.com/');
                
#print $response;
               
if ($response->is_success) {               
   print $response->content;  # or whatever               
}               
else {               
    print "shit!";               
}

my $content = $response->contene;
print $content if(defined $content);