use strict;
use File::Find;
my $path = shift @ARGV;
my @dirs;
find (sub {push @dirs, $File::Find::dir}, $path);
foreach my $dir (@dirs){
	print "$dir\n";}