foreach my $file ( grep { !/^\.{1,2}$/ } readdir DIR ) {
    munge($file);
}