my $agent = LWP::UserAgent->new( timeout => 30 );

# ...

my $response = HTTP::Request->new( GET => $site );

##</code><code>##

my $get = HTTP::Request->new( GET => $site );

# ...

my $response = $agent->request( $get );