Now that is just the best use of a "do block" I've seen all year. I'd have done that as a sub, everytime. You win the "Baby Bear" award for the year. =) It's not too hot, it's not too cold, that code is exactly right.

--
$you = new YOU;
honk() if $you->love(perl)