I'm processing hundreds of files in a directory structure that looks similar to this:

{contains several files...}
{contains several files...}
{contains several files...}

What I would like to do is print to the console progress by displaying the end path name once and only change when the path changes, such as:
Processing ./path1
Processing ./path2...

Can someone recommend a fix or an alternative method
Here's what I have coded so far;

Code Perl:
#!/usr/bin/perl -w
use warnings;
use strict;
use File::Find;
use File::Copy;
my $prevdir;
my $path = $ARGV[0];
chdir($path) or die "Can\'t chdir to $path";
print "Copying index.html file...\n";
find(\&CopyContent, $path);
sub CopyContent
  my $file = $File::Find::name;
  my $dir = $File::Find::dir;
  #check if file is a file (not a directory) and a Text file
  if (-f $file && -T $file)
    $dir =~ s/$path//g;
    my $currdir = $dir;
    if ($currdir ne $prevdir) {
      print "Processing directory: \.$currdir \n";
      my $prevdir = $currdir;
    ### manipulate file code goes here....