#!/usr/bin/perl
@w = `/usr/bin/w`;
print shift @w;
print shift @w;
foreach $line (@w) {
	$line =~ /^.{40}(.{5})/;	
	$idle = $1;
	if ($idle =~ /^\s*\d*$/) {
		print $line if ($idle =~ /^\s*\d*$/);
	}
	else {
		$count++;
	}
}
print "$count idle.\n";