test perl file