Someone

#!/usr/bin/env perl

while ($l = getc) {
	if ($l =~ /[a-zA-Z]/) {
		++$c{$l};
	}
}

foreach $l (sort keys %c) {
	print "$l $c{$l}\n"
}