use strict;
use warnings;
use 5.010;

for my $file (glob '*') {
  say $file;
}