Select Code to Download

sub sql {
  my @output = $sqlCount->execute;
...
  $dbcon->disconnect();
  return \@data
}

my $data = join "\n", @{ +sql() };
...
Data => $data
...