A pure-Perl implementation of K-Means Clustering Avinash Kak (kak@purdue.edu)