There are a couple more methods
if windows:

$dir = "D:\books";
@output = `dir $dir /B /S`;
[download]

if unix:

$dir = "/some/path";
@output = `find $dir`;
[download]