#!/usr/bin/perl

# Put on your nerd glasses and draw a square!

use strict;
use warnings;

my $balancex = 10; # width

my $repeatx = $balancex; #don't change repeatx!!! use balancex instead.
my $repeaty = 10; # height

do{

while($repeatx > 0){	
	print ". "; # change the period to print another character, but keep the extra space.
	$repeatx -= 1;
	}
print "\n";
$repeatx += $balancex;
$repeaty -= 1;
} until ($repeaty == 0); #corrected by Athanasius & AppleFritter