perl: Make examples tester work