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