use File::Slurp qw(read_dir);
my @things = read_dir($dir, keep_dot_dot => 1);