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

# ...

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