test for perl script