....

$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++;
}
 }
[download]

That's it.

Obviously if there are more than 200 directories, I run into a problem.

Is there a way to update the progressbar to reflect the whole process of recursing my CDRW drive?