my @sails = map { "\b$_" } qw{- \ | /};
    my $sail = 0;

    {
        local $| = 1;

        print q{Running:  };

        for (0 .. 1000) {
            system $cmd and die qq{'$cmd' failed! $? : $!};

            print $sails[$sail++ % @sails] if not $_ % $skip;
        }
    }