in reply to skip directories when using File::Find

How about something like this:
sub update { return if(m!^$restrict!o); # work here }
You could switch it to a grep if you have a list of dirs to ignore as well.