my $req = new HTTP::Request HEAD => "http://some.server.net/";
my $res = $ua->request($req);