article on testing anything with perl