Examples of OO in Perl