#!/usr/bin/perl

$|=1;$WHIRLEY_COUNT=-1;

#$whirley='-\|/';@whirley=split //,$whirley;
#$whirley='.o0O0o';@whirley=split //,$whirley;
#$whirley='1234567890';@whirley=split //,$whirley;
#$whirley='';@whirley=split //,$whirley;
$whirley=" ".pack(C,176).pack(C,177).pack(C,178).pack(C,219).pack(C,178).pack(C,177). pack(C,176);@whirley=split //,$whirley;


sub whirley {
  if ($WHIRLEY_COUNT+1==@whirley) {
    $WHIRLEY_COUNT=0;
  } else {
    $WHIRLEY_COUNT++;
  }
  return "@whirley[$WHIRLEY_COUNT]";
}

while (1) {
    sleep 1;
    print STDERR "please wait : ".&whirley."\r";
}