my $ua = LWP::UserAgent->new;#
               
 $ua->timeout(10);
               
 #$ua->env_proxy('HTTP',"http://service:3128"); So geht es auch nicht????
               
 
               
 my $response = $ua->get('http://www.gom.com/');
               
 
               
 #print $response;
               
 
               
 if ($response->is_success) {
               
 print $response->content;  # or whatever
               
 }
               
 else {
               
 print "shit!";
               
 }