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");