File::CopyTree ($dest, $src, [skip => qr/\.obj$/], &foo, 'CaseInsensitive');