use File::Slurp qw(read_dir);
my @entries = read_dir($InDir);