perl work #3 finished.
All test are clear.