Querying: HTTP

use Test::More 'no_plan';
use LWP::Simple qw(get);

my @hosts = ...
foreach my $host (@hosts) {
    my $t = get("http://$host/temp.cgi");
    ok($t < 95, "temp from $host");
    diag("temp was $t");
}