my($restrict) = "/web/.backup"; #don't go in here!!
find(\&update,$somestartingdir); 
  #find and execute sub on each file

sub update {
  #blah, do whatever
}