Progress Bar

#!/bin/perl
@animation = qw( \ | / - );

$arrow="";
for ($i=1;$i<100;$i++) {

$percent= "    "."$i%"." [";
$arrow.="=";

	foreach $a(@animation) {
		print STDERR $percent;
		print STDERR $arrow.'>';
		print STDERR $a."\n";
		print STDERR "\e[A";
		sleep 1;

	}

}

print STDERR "\n";