template perl class