#!/usr/bin/perl -s

use lib ("..");
use klass;
use Data::Dumper;

klass::debug($debug);
klass::loadkltable("../cla");

while(<>){
   chomp;
   %x=();
   if(-f $_){ %x = klass::klassFile($_); }
   else     { %x = klass::klassStr($_);}
   print "File $_ Classification:", join(",",klass::biggest(%x)),"\n";
   print join("",(map { "\n\t$_ : $x{$_}"} (keys %x))), ".\n\n";
}