use LWP::UserAgent qw( ); my $ua = LWP::UserAgent->new(); my $response = $ua->get('http://www.google.com/'); print($response->request()->as_string(), "\n");