#!/opt/perl/bin/perl -w

use strict;
use SpiralSq;   

my $n = 18;

my $s = new SpiralSq($n);

for (0 .. ($n-1))
{
    print join " ", $s->getRow($_);
    print "\n";
}