sub MY::libscan {
    warn "@_\n";
    my( $mm, $file ) = @_;
    return if $file =~ /\.AppleDouble/;
    return $file;
}

WriteMakefile(
...