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";