$|=1;
for ($i=0;$i<101;$i++) {print "[$i%]\a\r"; sleep 1;}
print "Complete!\n\a\a\a";