use Tk;
use Tk::SRTProgress;
my $mw = tkinit;
my $p = $mw->SRTProgress->pack;
$p->Init;
$p->repeat(100, sub { $p->UpdateFloat });
MainLoop;