Select Code to Download

my $dbh = DBI->connect(..., {RaiseError => 1});
my $sth = $dbh->prepare(<<SQL);
...
my $res = $sth->fetchall_arrayref();

print Dumper($res);