start perl OO stuff...