find ( {
    no_chdir => 0,
    wanted => sub {
        return unless -d;   # skip files; we're tagging folders
        return if $File::Find::name =~ /\/\./;
        return if $File::Find::name =~ /\./;
        return if $File::Find::name =~ /\.store$/i;
        return if $File::Find::name =~ /\/LOG(\/|$)/i;
        return if $File::Find::name =~ /\.go\./i;    
        return if $File::Find::name =~ /\/cache(\/|$)/i; 
        return if $File::Find::name =~ /\.store$/i;    
        return if $File::Find::name =~ /\/AVCHD(\/|$)/i; 
        push ( @fileList, $File::Find::name ); # get name with path
        }},
    $tagLocation );