#!/usr/bin/perl

use strict;
use warnings;
no warnings qw /syntax/;

$| = 1;

my @a = qw {| / - \ };
my $a;

while (1) {
    print "\r", $a [$a ++ % @a];
    select undef, undef, undef, 0.25;
}
__END__