$ua = LWP::UserAgent->new();
                   $request = HTTP::Request->new('GET', $url);
                   $response = $ua->request($request);
                   if ($response->is_success) {
                        print OUT $response->content();
                   }
                   else {
                         print STDERR $response->status_line, "\n";
                   }
           }