#!perl
use strict;
use warnings;
use File::Find;

my @startpoints = ('d:/afids_afse');
foreach my $apoint (@startpoints) {
        find( sub
        {    
         return if($_ =~ /^\./);
	 return if($File::Find::dir =~ /(.svn|SQL|emailapps|help)/);
	 return if($_ =~ /(jpg|png|gif|xml|pdf|exe)$/i);
         return if -d;
         print $File::Find::name . "\n";
        
        },$apoint);
}