Select Code to Download

    a1,   a2,   a3,   a4
    b1,   b2,   b3,   b4
              .
              .
              .

#!/usr/bin/perl

...
      print join(',', @$row), "\n";
   }
 }