Build a list of Files

Here’s a quick snippet of code to build a list of files from a folder using Perl:

my $ext = '_plog.txt';
opendir (DIR, ".") || die "Can't open directory: $! n";
my @flist = grep (/$ext$/, readdir (DIR));
closedir (DIR);