#!/usr/bin/perl -w


use Tk;
use Tk::ProgressBar;

my $mw = MainWindow->new(-title => 'ProgressBar example');
$mw->Label(-text=>'1 - 1000 MB/s')->pack();

$test="#";
$mw -> Entry(-textvariable=>\$test, -foreground=>'darkgreen', -width=>120)->pack();
for ($i=0; $i<100; $i++) { $test.="#"; $mw->update(); }
$test.="$i"; $mw->update();

$mw->Entry(-textvariable=>\$test2, -width=>120)->pack();
for ($a=0; $a<50; $a++) { $test2.="#"; $mw->update(); }
$test2.="$a"; $mw->update();

$mw->update();
     
MainLoop();