U:\proj>perl -MO=Deparse -e "print $a +$b"
$a->print $b;