perl testing