while ($num)
{
	print "$num\r";
	$num--;
	sleep 1;
}