use strict;
use warnings;
use Curses::UI;

my $cui = new Curses::UI;

$cui->progress
        (
        -max => 10,
        -message => "Zaehle 10 Sekunden...",
        );

for my $second (0..10) 
  {
  $cui->setprogress($second);
  sleep(1);
  }

$cui->noprogress;