another alternative would be to use File::Util

    use File::Util;

    my($f) = File::Util->new();
    my($dirs, $files) = $f->list_dir('your/root/directory', qw/--recur
+se --as-ref/);
[download]

see File::Util for details