binmode STDOUT;

$| = 1; # Windows 98 braucht das, Windows 2000 nicht.
for (1..100)
{
   print "$_%\r";
   sleep(1);
}