use AnyEvent::Ping::TCP;
use Time::HiRes qw(time);

my @hosts = ();
my %results = ();

foreach my $prefix (qw(192.168.40. 192.168.41. 192.168.50. 192.168.150.)) {
        for (my $i = 1; $i < 255; $i++) {
                push(@hosts, $prefix . $i);
        }
}

my $start_time = time;

foreach my $host (@hosts) {
        tcp_ping_syn $host, 80, 1;
#       tcp_ping_syn $host, 443, 1;
#       tcp_ping_syn $host, 22, 1;
}

my $mid_time = time;

foreach my $host (@hosts) {
        $results{$host . ':80'} = tcp_ping_ack $host, 80;
#       $results{$host . ':443'} = tcp_ping_ack $host, 443;
#       $results{$host . ':22'} = tcp_ping_ack $host, 22;
}

my $end_time = time;

foreach my $result (keys %results) {
        print "\t$result: " . (defined($results{$result}) ? sprintf("%.2f", $results{$result}) . " milliseconds" : "timed out") . "\n";
}

print scalar(keys %results) . " pings sent in " . ($mid_time - $start_time) . " seconds\n";
print scalar(keys %results) . " ping results received in: " . ($end_time - $mid_time) . " seconds\n";
print "Total time: " . ($end_time - $start_time) . " seconds\n";