....

$prog = $progframe-> ProgressBar(
	-from=> 0,
	-to=> 200,
	-blocks=> 1,
	-gap=> 0,
	-variable=> \$count,
	)->pack(
		-fill=> 'x',
		-expand=> 1,
		);

finddepth(\&wakecdrw, "$source");

MainLoop;

sub wakecdrw {

# Just looking for directories.
# I'm not doing anything with $_

if(-d "$_") {

# I'm also updating an Entry widget here.
$path = "$File::Find::name";
$displaypath->update();

# ProgressBar variable incrimented here.
$count++;
}
 }