#!/usr/bin/perl -w

use strict;

foreach (1..20) {
    print ".";
    sleep 1;
} 
print "\n";