$ mkdir /tmp/blubb
$ touch /tmp/blubb/test.pl
$ perl -wle'use File::Find::Rule;
my @files = File::Find::Rule->file()->name("*.pl")->in("/tmp/blubb");
print @files;'
/tmp/blubb/test.pl