Select Code to Download

#!/usr/bin/perl     
use strict;
...
  }
  print "\n";
}

05:11][nick:~/dev/perl_dev/test/monks]$ perl 1133944.pl 
 Enter dimension : 4
...
5  6  7  8  
9  10  11  12  
13  14  15  16