my $value = $$val;
    my $pbar = $$frame->ProgressBar(
        ...
    );
    $$val = $value;