more perl OO goodness