if ( $date->error != $date->E_OK ) { print STDERR Dumper($row); print STDERR "E: ".$date->errstr; next; } else { print Dumper($row) if ($config{debug}>0); }