Perl OO learning project