if ($@) {
warn "Error exporting record $record_number ($record_type) ".($noxml ? "not XML" : "XML");
}
$num_exported++;
print "\nRecords exported: $num_exported\n" if ( $verbose_logging );
-