#!/usr/local/bin/perl
# Spin a cute cursor while being idle
# Kees Cook 1997

$|=1;
@spin = ("|","/","-","\\");
$chars = 4;
$i=0;
while (1) {
	sleep 1;
	$0="Idling " . $spin[$i];
	$i = ($i + 1) % $chars;
	print $0,"\r";
}