there's actually an example in Damian Conway's OO-Perl for pretty printing. it's in the Operator Overloading section, IIRC.