Simple OOP Perl