Try this:

$|=1;
print "Processing line: ";
for (8..15) {
  print $_ . "\b" x length;
  sleep 1;
}
print "\nDone\n";
[download]