What code do you have for the progress bar (how are you declaring/making toplevel/updating? Looking at Tk::ProgressBar it looks like the -to attribute should be set to the total files, and then as you go through and process files just do $ProgressBar->value( $files_completed )