use LWP; my $finaldata; my $query_url = 'http://www.bla.com/'; sub get_pagesum { my $ua = LWP::UserAgent->new( agent => 'http://mysite.com/'); my $response = $ua->get("$query_url", ':content_cb' => \&gen64, ); } sub gen64 { my($data, $response, $protocol) = @_; return $finaldata .= $data; } # whatever you got off the last request # should now be contained in $finaldata