use Tk;
use Tk::ProgressBar;

my $mw = MainWindow->new(-title => 'ProgressBar example');

$progress = $mw->ProgressBar(
			-width => 30,
			-from => 0,
			-to => 100,
			-blocks => 50,
			-colors => [0, 'green', 50, 'yellow', 80, 'red'],
			-variable => \$percent_done
			)->pack(-fill =>'x');
		
$percent_done = 85;
$mw->update;

					
MainLoop;