Add perl check