Template perl class