Select Code to Download

[%
   USE d = DBI(database = "dbi:AnyData", user = "", password = "");
...
   END;
%]

use DBI;
my $dbh = DBI->connect('dbi:AnyData(RaiseError=>0):');
...
while ( my $row = $sth->fetchrow_hashref ) {
    print $row->{name}, "\n";
}