$tlframe->Label(-text=>$tlb)->place(-x=>0, -y=>0);