find({
    no_chdir => 1,
    wanted   => sub {
        print STDERR "*** Doing $_ ***\n";
        if (-f) {
            print "...Adding $_\n"
        }
        elsif (-d _) {
            print "Adding dir $_...\n"
        }
    }
 }, $source_dir) or die "$0: $!\n";