#!/usr/bin/perl

use strict;
use warnings;
use Time::Progress;

$| = 1;

my $p = new Time::Progress;
$p->restart;
sleep 5; # or put your work here
print $p->report(
    "done %p elapsed: %L (%l sec), ETA %E (%e sec)\n", 50); 

$p->stop;
print $p->elapsed_str;