#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use Time::HiRes 'time';
use Tk;
use Tk::ProgressBar;
my $data = 0;
my $mw   = MainWindow->new;
$mw->Entry( -text => 'blah' )->pack;
$mw->Entry( -text => 'krams', -bg => 'grey80' )->pack;
my $progressbar = $mw->ProgressBar(
    -from     => 0,
    -to       => 400,
    -variable => \$data,
    -width    => 6,
    -length   => 100,
    -blocks   => 100,
    -colors   => [ 0, 'green' ],
)->pack;
my $button = $mw->Button( -text => 'x' )->pack;

$mw->repeat( 10, sub { $data = time*1000 % 400; } );

MainLoop;