How can I list files under a directory with a specific name pattern using Perl?

Question

I have a directory /var/spool and inside that, directories named

a  b  c  d  e  f  g  h i  j  k  l  m  n  o  p q  r  s  t  u  v  x  y z

An

Answer 1

For a fixed level of directories, sometimes it's easier to use glob than File::Find:

while (my $file = ) {
  print "Processing $file\n";
}