#!/usr/bin/perl -w

use strict;

sub progress {

$| = 1;

print "<" . (" " x 40) . ">";

my $steps = rand(30);

my $start = time;

my $end = $start + $steps;

while ($end > time) {

my $done = int(40 * (time - $start) / $steps);

my $left = 40 - $done;

print "\r<" . ("=" x $done) . (" " x $left) . ">";

sleep 1;

}

print "\n"

}

progress;