Select Code to Download

use strict;
use warnings;
...
j;k
l
m;n;o

use Text::CSV_XS;
use CGI::Pretty qw(-any);
...
my $csv = Text::CSV_XS->new({sep_char => ';'});
$csv->parse($_) and print CGI::row(CGI::col([$csv->fields]))
      while <DATA>;