$dir = 'c:\\p'; opendir (DIR, $dir) or die $!; while( $direntry = readdir(DIR)) { if (-f $direntry){push (@files, $direntry)}; if (-d $direntry){push (@subdirs, $direntry)}; }