#!/usr/bin/perl

use warnings;
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;

my $ua      = LWP::UserAgent->new( cookie_jar => '' );
my $request = HTTP::Request->new( 'GET', 'http://www.google.com' );
my $result  = $ua->request( $request );

print $result->status_line;