my $io = IO::All->new();
$io->dir($dir);
say for $io->all;