#!/usr/bin/perl
use strict;

unless(0)
{

  my @rotation = qw(/ - \ |);
  my $pos = 0;
  my $del = "\x08";
  $| = 1;
  sub { print $del,'.',$rotation[$pos]; };

  while(1)
  {
    print $del,$rotation[$pos];
    select(undef, undef, undef, 0.10);
    $pos++;
    $pos=0 if($pos >= @rotation);
  }
  exit(0);
}

exit(0);