use File::Util;

    my($f) = File::Util->new();
    my($dirs, $files) = $f->list_dir('your/root/directory', qw/--recurse --as-ref/);