Select Code to Download

use strict;
use DBI;
...
my $sth = $dbh->prepare($sql);
my $res = $sth->fetchall_arrayref({ Slice => {} });
print Dumper $res;