#!/usr/bin/perl

$| = 1;
@progress = ("|\b\b","/\b\b","-\b\b","\\\b\b");
for ($i = 0; $i < 1200000; $i++) {
    unless ($i % 50000) {
        print $progress[(($i / 50000) % $#progress)];
    }
}