$frame->Label(
    -textvariable => \$value
    )->pack();