Select Code to Download

use strict;

...
    print "\n---\n";
}

use strict;

...
    spiral($_);
    print "\n---\n";
}