Tony attempting to write object-oriented perl