Added function test perl script to facilitate testing for myself