#Set up temporary XML output file for XML::Writer 
 my $output = IO::File->new(">$PassedSource.xml"); 
 
 #Initiate XML::Writer 
 my $writer = XML::Writer->new(OUTPUT => $output); 
 
 #Write XML header and start tag. 
 $writer->xmlDecl("UTF-8"); 
 $writer->startTag("objects"); 
 
 
  #Iterates through MySQL table until all matching rows have been parsed and written to XML. 
 while (my ($SourceID,$SourceURL,$artTitle,$artDate,$artText,$objKey,$robName,$exID,$firstExt,$lastExt,$extYN,$lastUD) = $sth->fetchrow_array ()) 
{ 
 
	$FileName = $SourceID; 
 
	$writer->startTag("ISIS"); 
 
	#### Removing illegal characters. 
	# allowed: [#x1-#xD7FF] | [#xE000-#xFFFD] | [#x10000-#x10FFFF] 
	$artTitle =~ s/[^\x01-\x{D7FF}\x{E000}-\x{FFFD}\x{10000}-\x{10FFFF}]//go; 
	# restricted:[#x1-#x8][#xB-#xC][#xE-#x1F][#x7F-#x84][#x86-#x9F] 
	$artTitle =~    s/[\x01-\x08\x0B-\x0C\x0E-\x1F\x7F-\x84\x86-\x9F]//go; 
	$log->debug("Article Title: $artTitle"); 
 
	#### Removing illegal characters. 
	# allowed: [#x	1-#xD7FF] | [#xE000-#xFFFD] | [#x10000-#x10FFFF] 
	$artText =~ s/[^\x01-\x{D7FF}\x{E000}-\x{FFFD}\x{10000}-\x{10FFFF}]//go; 
	# restricted:[#x1-#x8][#xB-#xC][#xE-#x1F][#x7F-#x84][#x86-#x9F] 
	$artText =~ s/[\x01-\x08\x0B-\x0C\x0E-\x1F\x7F-\x84\x86-\x9F]//go; 
 
 
	#Write to XML file per each row in Database (aka, each article). 
	$writer->startTag("articleTitle"); 
	$writer->characters($artTitle); 
	$writer->endTag("articleTitle"); 
	 
	$writer->startTag("date"); 
	$writer->characters($artDate); 
	$writer->endTag("date"); 
 
	$writer->startTag("url"); 
	$writer->characters($SourceURL); 
	$writer->endTag("url"); 
 
	$writer->startTag("articleText"); 
	$writer->characters($artText); 
	$writer->endTag("articleText"); 
 
	$writer->endTag("ISIS"); 
 
	my $deleteSQL = "DELETE FROM CollectionDB.CollectionDB WHERE url='$SourceURL'"; 
 
	#Clears MySQL database per loop iteration. 
	my $sth = $dbh->prepare($deleteSQL); 
	$sth->execute(); 
	 
 
  } 
 
  $writer->endTag("objects"); 
  $writer->end(); 
 
  $log->debug("Successfully wrote XML to temporary XML file: $output" . "\n"); 
 
  $output->close();

#Initiate XML::Writer  
 my $writer = XML::Writer->new(OUTPUT => $output,ENCODING => 'utf-8');