Sexy code there... that is better than what I came up with. =)

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