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

##</code><code>##

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