{
        my $p=0;
        $|=1;
        sub tick {
                print substr(qq{|/-\\|/-\\}, $p++, 1), "\b";
                $p=0 if ($p > 8);
        }
}