use Tk;
use Tk::LCD;

my $mw = MainWindow->new;
my $frog = 99 + 1;
my $lcd = $mw->LCD(
           -elements => 3,
           -onoutline => 'yellow',
           -onfill => 'purple',
           -variable => \$frog,
);
$lcd->pack;
my $lcd2 = $mw->LCD(-elements => 6);
$lcd2->pack;

while ($frog >= -9) {
    $mw->after(100);
    $frog--;
    $lcd2->set($frog);
    $mw->update;
}