#!/usr/bin/perl

use strict;
use warnings;

use YAPI;

MAIN:
{
    my $prog = YAPI->new('prog' => [ qw(^ > v <) ]);   # My own invention

    $prog->start('Working: ');
    foreach (1..10) {
        sleep(1);
        $prog->progress();
    }
    $prog->done('done');
}

exit(0);

# EOF