#!/usr/bin/env perl
use Modern::Perl;
use File::Find;

sub w {
    if( -d $_ ){
        open my $out, '>>', 'list' or die $!;
        print $out "$_\n";
        close $out;
    }
}
File::Find::find(\&w, '.');