Perl прогресс бар

#!/usr/bin/perl
###################################################
use Time::HiRes qw(usleep);

$|=1; #autoflush
my $count = 0;
my $total = 100;
while ($count != $total) {
   $count++; 
   my $per=($count/$total)*100; 
   print "\033[JStatus: ${per}% Completed."."\033[G";
   usleep(50000);
}
print "Status: 100% Completed.\n";
exit 0;

#!/usr/bin/perl
###################################################
use Time::HiRes qw(usleep);
$cnt = 2000;

$|=1;
for($i=0;$i<$cnt;$i++){
	$percent = int(($i/$cnt)*100);
    $line = "";
	for($k=1;$k<=$percent;$k=$k+2){
		$line.= "#";						
	}
    for($k=$percent;$k<=98;$k=$k+2){
		$line.= "-";						
	}
	print "\033[J$line [ $percent% ]\033[G";	
	usleep(10000);
}
print "\033[J$line [ 100% ] Complete\n";

exit 0;