My perl re-write is not very good.