ディレクトリ内のファイルを表示するスクリプト

そんな日に書いた、Perlのスクリプト。

#!/usr/bin/perl

use strict;
use warnings;

my $some_dir = 'F:\foo\bar;

opendir( DIR, $some_dir ) or die "can't opendir $some_dir: $!";
while ( my $d = readdir(DIR) ) {
 if ( $d =~ /^a\d/ ) {

  print "$d ==========================================\n";
  my $dd = "$some_dir\\$d";
  opendir( DIR2, "$dd" ) or die "can't opendir $dd: $!";
  my $cnt = 1;
  while ( my $f = readdir(DIR2) ) {
   next if $f =~ /^\./;
   print "$f ";
   print "\n" if $cnt % 10 eq 0;
   $cnt++;
  }
  print "\n";
 }
}
closedir DIR;