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

my $mw = MainWindow->new();

my $pf = $mw->Frame()->pack();

my $p = $pf->ProgressBar(
 -troughcolor => 'black',
    -fg       => 'lightgreen',
    -blocks   => 1,
    -width    => 20,
    -length   => 200,
    -from     => 0,
    -to       => 100,
    -variable => \( my $foo ),
)->pack(-side =>'right');

my $l1 = $pf->Label(-text => '%',
               -bg       => 'black',
               -fg       => 'green',
               )->pack(-side => 'right');

my $l2 = $pf->Label(-textvariable => \$foo,
               -bg       => 'black',
               -fg       => 'green',
               -width => 3,
               )->pack(-side => 'right');

$mw->Button( -text => 'Quit',
             -command => sub { exit }
  )->pack;


$foo = 0;
$mw->repeat( 100, sub { $foo = ( $foo + 1 ) % 100 } );

MainLoop;
__END__