toy perl OpenMP implementation