use IO::ALL
$some_dir = "/cygdrive/e/Uns-Root/Sev";
$dir = io($some_dir);
while (my $io = $dir->read) {
        print $io->name, "\n"
        if $io->is_file;
      }