open(LOG, "+>Test.log");
for($x=0;$x<=100;$x++){
	print "\rProgress...$x\%";
	print LOG "\rProgress...$x\%";
}
print "\rProgress...Done!\n";
print LOG "\rProgress...Done!\n";
close LOG;
$wait=<>;

##</code><code>##

"Progress...Done!"

##</code><code>##

"Progress...0%
Progress...1%
Progress...2%
...
Progress...100%
Progress...Done!"