I might suggest using readdir for something like this. The following snippet should get you started...

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);
[download]