use strict;
use warnings;

my $file_name = "dharry.xml";
my $num_departments = 1000;

open (XML_OUT_FILE, ">$file_name")
or die "Could not open $file_name\n";

	print XML_OUT_FILE "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
    print XML_OUT_FILE "<Company>\n";
	for (my $i=0; $i<$num_departments; $i++) {
		print XML_OUT_FILE "  <Department>\n";
		print XML_OUT_FILE "  <Name>Bla$i</Name>\n";
		for (my $j=0; $j<5; $j++) {
			print XML_OUT_FILE "  <Person id=\"$i$j\">\n";
			print XML_OUT_FILE "    <First>John$i$j</First>\n";
			print XML_OUT_FILE "    <Last>Doe$i$j</Last>\n";
			my $phone_ext = int(rand(10000000));
			print XML_OUT_FILE "    <PhoneExt>$phone_ext</PhoneExt>\n";
			print XML_OUT_FILE "  </Person>\n";
		}		
		print XML_OUT_FILE "  </Department>\n";
	}
	print XML_OUT_FILE "</Company>\n";
	
close XML_OUT_FILE
	or die "Could not close $file_name\n";	

print "Done...\n";

##</code><code>##

use strict;
use warnings;
use XML::Twig;

# Select Twig bassed on value of id attribute on Person element
my $twig= new XML::Twig( 
                twig_handlers =>                  
                  { 'Person[@id="50000"]' => \&Person } 
                       );  
$twig->set_pretty_print ('record'); # Human readable output please
$twig->parsefile( "dharry.xml");             
$twig->flush;

sub Person { 

	my( $twig, $person)= @_;
	
	my $name = $person->first_child("First");
	$name->set_text("dHarry");
	$twig->flush;

}