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