Some further nitpicking:

• It's still readdir not readir :)
• The chomp is not needed
• Using $_ instead of my $foo would make things cleaner, i.e.
  next if /^\.\.?$/ or ! -f;