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;
      }

##</code><code>##

Can't locate IO/ALL.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .) at e:\Uns-Root\DirStru.pl line 4.
BEGIN failed--compilation aborted at e:\Uns-Root\DirStru.pl line 4.