Select Code to Download

my $sql;
{ 
...
}

my $row = $dbh->selectall_arrayref($sql) or die "SQL Error: $sql";