Very Simple OO in Perl Example