Well, being truly defensive, you should have written:

foreach my $file ( grep { !/\A\.{1,2}\z/ } readdir DIR ) { 
    munge($file); 
}
[download]

Or else the day someone creates a file named dot-newline or dotdot-newline, you'll be very angry.

-- Randal L. Schwartz, Perl hacker