If you add a few print/warn statements, you can see that $le is Tk::LabEntry=HASH(0x10b7f8c) but that the bind callback gets a Tk::Entry=HASH(0x10d47cc)

You could use Tk::Widget method parent to get back to LabEntry, like this  $_[0]->parent->configure( -labelBackground => 'red');