Started doing some OOP with perl