Select Code to Download

use File::Find;

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

use File::Find

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