perl -MO=Deparse -e '$Entry8->bind( "<KeyRelease>", \&tiefevali($Entry8));'
$Entry8->bind('<KeyRelease>', \(&tiefevali($Entry8)));