my $ua = LWP::UserAgent->new; $ua->timeout(20); # default is 180 seconds $ua->proxy( ['http', 'https'], $self->proxy ) if defined $self->proxy; my $response = $ua->request($request); my @results; if ($response->is_success) { my @arr=split(/\n/,$response->content); # much neater to use 'content' instead of 'as_string', we don't need to explicitly ignore header part of the http response any more. foreach my $el(@arr){ $logger->warn("RESPONSE: $el"); push (@results,$el); } } else { warn ("\n\nProblems with the web server: ". $response->status_line."\n\n"); }