small perl oop example