Select Code to Download

my @results = &row_sql(qq~ select * from table where ...; ~);

...
foreach my $row (@$rows){
  print "$row->{id}, $row->{somecolumn}\n";
}

    until (
    $dbh=DBI->connect_cached($connectionInfo,$user,$passwd, {PrintErro
+r=>0} )
...
        }
    }
    ) { if ($sqlw){print "Retrying SQL Insert ($DBI::errstr)...";} sle
+ep (1); $retry_count++;}

use DBI;
...
    
    return 1;
}