#!/usr/bin/perl
use warnings;
use File::Find;

sub  countThem  {
    $dir = '.';
    $filecount=0;
    $ext1=$_[2];
    find(sub{$filecount++ if $File::Find::name =~ /$ext1$/}, $dir);
    $filebytes=0;
    if ($filecount > 0 ){
        #`find . -name "*$_[2]" -print`;
        my @f;
        find ( sub {
            return unless /$ext1$/;
            push @f, $File::Find::name;
               },$dir);
        chomp(@f);
        foreach $a (@f){
            $fbytes=`cat $a | wc -c`;
            $filebytes=$filebytes+$fbytes;
        }}
    $_[0]=$filecount;
    $_[1]=$filebytes;
}

foreach $ext (@ARGV){
    $tmpfilecount=0;
    $tmpfilebytes=0;

    countThem ($tmpfilecount, $tmpfilebytes, $ext);
    if ( $tmpfilecount > 0 ){
        print STDOUT ("EXTENSION $ext, FILE COUNT: $tmpfilecount, FILE CHARS: $\
tmpfilebytes\n");

}
}