Select Code to Download

my($restrict) = "/web/.backup"; #don't go in here!!
find(\&update,$somestartingdir); 
...
sub update {
  #blah, do whatever
}