#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::ProgressBar;

my %pid=(ex1=>{as=>'temp', val=>'-21.5'});

my $mw=MainWindow->new();
my $tmpbar=$mw->Frame()->pack( -padx=>30 );
PBar( \$tmpbar, \$pid{ex1}{val}, '-30', '70' )->pack();
$tmpbar->Label( -textvariable => \$pid{ex1}{val} )->pack();
$tmpbar->Label( -text => "$pid{ex1}{as}" )->pack();

print STDOUT "val Labels: $pid{ex1}{val}\n";

MainLoop;

sub PBar {
    my($frame, $val, $min, $max)=@_;
    print STDOUT "val PBar1: $$val\n";
    my $pbar=$$frame->ProgressBar(
        -anchor=>'s',
        -width=>40,
        -length=>500,
        -blocks=>100,
        -gap=>1,
        -resolution=>0.5,
        -variable=>$val,
        -from=>$min,
        -to=>$max
    );
    print STDOUT "val PBar2: $$val\n";
    return $pbar;
}