use File::Find;

find(\&printer, "/path/to/dir");

sub printer {
    print "I have found $File::Find::name\n" if /\.pl$/;
}

##</code><code>##

use File::Find

find(
    sub {print "I have found $File::Find::name\n" if /\.pl$/;},
    "/path/to/dir");