use strict;
use XML::Simple;

my $docid = "pounces";
my $dat = $ARGV[0];