#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::ProgressBar;

my $mw = tkinit;
my $btn = $mw->Button(-text => 'start...', -command => \&readdr)->pack();

MainLoop;

sub readdr{
  my $top = $mw->Toplevel();
#  $mw->update();
  my $progress = $top->ProgressBar(-from => 0, -to => 100, -colors => [0,'green'],
                                   -gap => 1)->pack();
  $progress->update();
  my $id = $progress->repeat(2,sub{
    my $values = $progress->value();
    $progress->value($values+2);
    $progress->update();
  });
    sleep(10);
  $id->cancel();
}