$| = 1;
my %hash = (0 => '-', 1 => '\', 2 => '|', 3 => '/');
my $fortschritt = 0;
for(0..10){
   print $hash{$fortschritt},"\b";
   $fortschritt++;
   $fortschritt = 0 if($fortschritt == 4);
}

perl -e '$|=1; my @chars = qw(- \\ | /); while ( 1 ) { for ( @chars ) { print $_; select(undef, undef, undef, 0.2); print "\b" } }'

c:\cygwin\bin\perl -e "$|=1; my @chars = qw(- \\ | /); while ( 1 ) { for ( @chars ) { print $_; select(undef, undef, undef, 0.2); print qq(\010) } }"

    printf "%5d from %5d(%3d %%): %50.50s\r", $i, $fcnt, ($i * 100) / $fcnt, $file;