# all my tmp dirs
@dirs = GetDirs('/tmp');
print "@dirs\n";

sub GetDirs {
    
    my $startdir = $_[0];
    
    foreach $leaf (glob("$startdir/*")) {
        if (-d $leaf) {
            @dirs = GetDirs($leaf);
            push(@dirs,$leaf);
        }
    }
    
    return (@dirs);
}