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

# $out is used within w():
open my $out, '>>', 'list' or die $!;

sub w {
    if( -d $_ ){
        print $out "$_\n";
    }
}
File::Find::find(\&w, '.');