$tl->Entry(-textvariable => \$val)->pack;