use strict;
use Win32::Console::ANSI; # thanks ikegami
$|=1; # turn off output buffering.  thanks Tanktalus

use Term::ANSIScreen qw/:screen :cursor/;
our @spinchars = qw( / - \ | );
our $spinvalue = 0;


for my $i (0..10) {
    spinner();
    sleep 1;
}

$|=0; # restore output buffering
sub spinner {
    print left(1)."$spinchars[$spinvalue]";
    $spinvalue++;
    if ($spinvalue > 3) { $spinvalue = 0; }
    return;
}

##</code><code>##

my $console = Term::ANSIScreen->new;
$console->Cursor(-1,-1,-1,-1,0);