Select Code to Download

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

my $value_buffer = $$move{'value'};
$value = $value_buffer;