#!/usr/local/bin/perl

# Total from which percentage will be calculated
$cnt = 16;

$|=1;
for($i=0;$i<$cnt;$i++)
{

	# Calculate Percentage
	$percent = ($i/$cnt)*100;		


        # Print Progress
	for($k=0;$k<$percent;$k=$k+5)
	{
		print "|";						
	}
	print " <-- $percent% Complete --> ";

        # Goto the start of the line
	print "\r";
	
	sleep 1;
}

print "\n>>>>>>>>>>---------100% Complete---------<<<<<<<<<<\n";