sub Fortschrittsanzeige{
        $|=1;
        print "\b\|";
        sleep(1);
        print "\b/";
        sleep(1);
        print "\b-";
        sleep(1);
        print "\b\\";
        sleep(1);
        print "\b ";
        return;
}