All pastes #607344 Raw Edit

Mine

public text v1 · immutable
·published 2007-07-07 15:02 UTC
rendered paste body
#!/usr/bin/perl
use warnings;
use strict;
use File::Find;

die "Specify path to search as first argument to the script\n" unless @ARGV;

find(\&wanted, $ARGV[0]);

sub wanted {
    print "$_\n" if (-d $File::Find::name && /\s/);
}