Select Code to Download

#!/usr/local/bin/perl -w
use Tk;
...
    $rowColCountText = "... to $numRowsOrCols " .
       (qw(rows columns))[$rowsOrColumns];
}