use warnings;
use strict;
use File::Slurp qw(read_dir);

for my $file (read_dir('.')) {
    print "$file\n";
}