#!/usr/bin/perl -w
use strict;
use NetQuery;

my $nq = new NetQuery;
my @list = $nq->get_all_pcs();

for(@list){
	if ($nq->is_alive($_)) {
		printf("%20s \t %20s\n",$_,$nq->get_clock_speed($_));
	}
}