my $path='d:\my documents\my other stuff';
opendir (DIR, $path) || die "Couldn't open $path: $!\n";
my @files=readdir (DIR); # Slurp!
print join("\n",@files);
closedir (DIR);