# cat pf1
#! /usr/local/bin/perl

use warnings;
use strict;
use File::Find;

my $dir = shift @ARGV;

find({wanted => sub {print $File::Find::name,"\n" if -d},
      no_chdir => 0}, "$dir");

print "\n";
      
find({wanted => sub {print $File::Find::name,"\n" if -d},
      no_chdir => 1}, "$dir");


##</code><code>##

# find da
da
da/s1
da/s1/f1
da/s1/f2
da/s2
da/s2/sx
da/s2/sx/sa
da/s2/sx/f4
da/s2/sx/f5
da/s2/sy
da/s2/f3
da/s3
da/s3/sz
da/s3/sz/f7
da/s3/sz/f8
da/s3/f6
da/s4

##</code><code>##

# ./pf1 ./da
./da
./da/s4
./da/s3
./da/s3/sz
./da/s2
./da/s2/sy
./da/s2/sx
./da/s2/sx/sa
./da/s1

./da
./da/s4
./da/s3
./da/s3/sz
./da/s2
./da/s2/sy
./da/s2/sx
./da/s2/sx/sa
./da/s1