You are calling \&update_dir for your find call, but the sub routine is sub update_file_dir. Maybe I am missing something, but I would change the call to update_file to update_file_dir.