Select Code to Download

use v5.36;
use DBI;
...

my $data = $dbh->selectall_arrayref("SELECT * FROM bar");
say Dumper({ DATA => $data });

$VAR1 = {
          'DATA' => [
...
                      ]
                    ]
        };