perl error test