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

# ...

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