In today, reading directories is easier with Path::Tiny

#!/usr/bin/perl --
use strict; use warnings;
use Path::Tiny qw/ path cwd /;
my $dir = cwd();
my @files = path( $dir )->children;
my @perlFiles = path( $dir )->children( qr/\.pl$/i );
for my $pl ( @perlFiles ){
    print "$pl\n";
}
[download]