sub finda
{
    print "In finda, $File:Find:name\n";
    find (\&findb, "/pqr");    
}

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

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