Select Code to Download

         #use Text::CSV::R qw(:all);
         use Text::CSV::R qw(read_table colnames rownames);
...
               # do someting with $col
           }
         }

package Text::CSV::R;

...

1;