@timewheel = ('\\','|','/','-'); 
#
# Put out timing marker.
sub timewheel {
	$timewheel = ($timewheel + 1) % 4;
	print STDERR "\b$timewheel[$timewheel]";
}
1;