use LWP;
our $ua = LWP::UserAgent->new();
my $url = "http://www.google.com";
my $response = $ua->get($url);
my $request = $response->request();
print $request->as_string();

__END__
output
======
GET http://www.google.ca/
User-Agent: libwww-perl/5.64