sub messages { my $dir = shift or return; my @messages; find(sub { next if /^\.+$/ || -d $File::Find::name; push @messages, $File::Find::name }, $dir); return @messages; }