use strict;
use warnings;
use autodie;

use File::Find::Rule;

my @txt_files  = File::Find::Rule
    ->file
    ->name('*.pl')
    ->in('./');

foreach (@txt_files) {
    print "$_\n";
}