#!/usr/local/bin/perl

use strict;

if (@ARGV != 1) {
   die "Usage $0 loops\n";
}
   
open POS, ">table.xml" or die $!;
print POS '<?xml version="1.0" encoding="UTF-8" ?>'."\n";

print POS "<table>\n";
for (my $i = 0;$i < $ARGV[0];$i++) {
   print POS "<pos><nr>$i</nr><desc>Position$i</desc></pos>\n";
}
print POS "</table>\n";
close POS;