If the find itself is taking several seconds then put the $main->update() in the callback subroutine (check_file?) and execute it occasionally.