use File::Find;

my (@good_dirs) = ( "/home", "/var" );
my $ltotal = 0;

File::Find::find({wanted => \&wanted}, @good_dirs);
print "\nFound a total of $ltotal instances.\n";

sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid);

    if ((($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
        -d _ &&  /^tmp\z/s ) {
        $ltotal++;
        print "$ltotal $File::Find::name\n";
    }
}