#!c:/perl/bin/perl -w
use strict;
use Win32::Console;
my $console = new Win32::Console(STD_OUTPUT_HANDLE);


$console->Cursor(-1,-1,-1,0);	# Turn off cursor blink

foreach (1..3) {
	foreach( ("-", "\\", "|", "/") ){
		$console->Cursor(0);	#Move cursor to beginning of line
		$console->Write($_);
		sleep 1;
	}
}

$console->Cursor(-1,-1,-1,1);	# Reset cursor blink