Select Code to Download

die "ASSERT( $row, $col )" unless Crd2Index( $row, $col ) < Squared;

use Carp::Assert;

...

assert(Crd2Index( $row, $col ) < Squared, 
       "Crd2Index( $row, $col ) < Squared") if DEBUG;