ещё вариант яиц ))

#!/usr/bin/perl
use strict;
use warnings;
my $path = shift || "/home";
sub tree {
    my $root = shift;
    my $dirs = shift;
    opendir my($dh), $root;
    while (my $subdir = readdir $dh) {
        next if $subdir eq "." or $subdir eq "..";
        push @$dirs, "$root/$subdir" if -d "$root/$subdir";
        tree("$root/$subdir", $dirs) if -d "$root/$subdir";
    }
    closedir $dh;
    return @$dirs;
}
print $_,"\n" for my @tree_dirs = tree $path;