Select Code to Download

# do a $dbh = DBI->connect(...)
$dbh->{'RaiseError'} = 1;

use Data::Dumper;
while ($pointer = $sth->fetchrow_hashref) {
    print Dumper $pointer;