#!/usr/bin/perl -w

$path = $ARGV[0] // $ENV{HOME};
die "Not a directory" unless -d $path;

my %hash;
ver($path);
for my $j (sort keys %hash){
    print "$j $hash{$j}\n";
}

sub ver{
    my $DIR = shift ;
#    print "DIR-> $DIR\n";
    opendir DIR, $DIR or warn "Cannot open $DIR";
    my @files = readdir DIR;
    closedir DIR;
    for my $i (@files){
	next if ($i=~/^\.$/ || $i=~/^\.\.$/);
#	print "$i\n";
	if (-f $i) {
	    if ($i =~ m/\.(\w+)$/){
		$hash{(lc($1))}++;
	    }else{
		$hash{"w/o ext"}++; 
	    }
	}else{
#	if (-d $i) {
	    unless (-l $i || $i =~ /wine/) {
		my $newdir = $DIR.$i."/";
		if ( (chdir $newdir) ){
		    ver($newdir);
		}
	    }
	}
    }
}