#!/usr/bin/perl -w

use strict;
use warnings;
use File::Find qw(finddepth);


#sudo mount -t cifs //gw004/Versaflow /media/versashare -o username=administrator,password=8-Tung,domain=mlands

my $share = '/home/steffen/svn/aoiv/app';
#my $share = '/media/versashare/versaflow1/Protocol/';

finddepth( sub {
    return if($_ eq '.' || $_ eq '..' );
        
    if ( -d $File::Find::name ) {
        my $cnt = `find "$File::Find::name" -type f | wc -l`;
        print "$File::Find::name : $cnt" ;
    } 
}, $share);