2 ms·

My perl re-write is not very good.