perl CBT