#! perl -slw
use strict;

$|++;
our $S //= '999';
our $I //= 10;

open O, '>', 'junk.xml';
print O '<servers>';
for my $s ( '0001' .. $S ) {
    printf "\r%s", $s;
    print O "<station$s>";
    print O '<ip>', join('.', unpack 'C4', pack 'N', int( rand 2**32 ) ), '</ip>' for 1 .. $I;
    print O "</station$s>";
};
print O '</servers>';
close O;

##</code><code>##

C:\test>xmlgen -S=9999
9999
C:\test>dir junk.xml
15/01/2012  12:40         2,424,205 junk.xml

##</code><code>##

C:\test>xmllib junk.xml
Parsing took 0.290895 seconds
Iteration took 171.657306 seconds
Total took 171.959000 seconds
Check mem:63.6MB

C:\test>xmlsimple junk.xml
Parsing took 38.202000 seconds
Iteration took 0.059186 seconds
Total took 38.262577 seconds
Check mem:142MB

##</code><code>##

C:\test>xmlgen -S=19999
19999
C:\test>dir junk.xml
15/01/2012  12:58         4,868,440 junk.xml

##</code><code>##

C:\test>xmllib junk.xml
Parsing took 0.560000 seconds
Iteration took 676.238758 seconds
Total took 676.802000 seconds
Check mem:107MB

C:\test>xmlsimple junk.xml
Parsing took 75.078000 seconds
Iteration took 0.124583 seconds
Total took 75.209615 seconds
Check mem:254MB