add test perl file