my $n=...;
for(1..$n**2){print '.'}