use strict;
use warnings;
use File::Find;

sub finda
{
    print "In finda, $File::Find::name\n";
}

sub findb
{
    print "In findb, $File::Find::name\n";
}

find (\&finda, "/abc/xyz");
find (\&findb, "/pqr");

##</code><code>##

In finda, /abc/xyz           # a folder
In finda, /abc/xyz/file1     # a file
In findb, /pqr               # a folder
In findb, /pqr/file2         # a file