#!/usr/bin/perl -w
use strict;
my $x = 0;
$|=1;  # Turn on auto-flushing
print "Loading. . ";
while ( $x < 8 ){
    sleep(2);
    print ". ";
    $x++;
}
print "done!\n";