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