#!/usr/bin/perl

use strict;
use warnings;
$|=1;

my $i;

for $i (1..10) {
   print ".";
   sleep 1;
}
print "\n";