Select Code to Download

use warnings;
use strict;
...
    last unless @$columns;
    print join '|', @$columns, "\n\n";
}

use warnings;
use strict;
...
for (@rows){
    print join '|', @$_, "\n\n";
}