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

##</code><code>##

GET http://www.google.ca/
User-Agent: libwww-perl/5.805