#! 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;