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";
[download]

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;

}
[download]