update the perl test and Example code to match README