#!/usr/bin/perl -w
use strict;
$|=1;
my @spinner=qw( / - \ | );
print "Wait ... ";
for my $i (0..19) {
        print "$spinner[$i % 4]\b";
        sleep 1;
}
print "- done\n";