I've always been partial to:

use File::Slurp;
my @files = read_dir( '/path/to/dir' ) ;
[download]