my $dir = 'c:';

opendir(DIR, "$dir\\");
my @files;
while(my $file = readdir(DIR)){
    push(@files, "$dir\\$file") unless(-d "$dir\\$file");
}
closedir(DIR);

print "$_\n" foreach(@files);