one more version of perl check