Select Code to Download

use Text::CSV;
use Math::MatrixReal;
...
  $csv->print(*STDOUT, [ map { $matrix->element($row_num,$_) } 1 .. 5 
+] );
  print {*STDOUT} "\n";
}