#!/usr/bin/perl -wuse 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;