#!/usr/athena/bin/perl

@src = `lynx -source http://www.mit.edu/.apache-status`;

foreach $l (@src){
	$ct++;
	next unless $ct >=14;
	split(" ", $l);
	$_[1]=~s/<i>//;
	$host{$_[1]}++;
}

foreach $h (sort {$host{$a} <=> $host{$b};} keys %host){
	print("$host{$h} $h\n");
}