As I'm not the author of that program I can only guess. Please change the line:

my $ref = XMLin($res->content, KeyAttr => "oid");
[download]

to the following

my $ref = XMLin($res->content, KeyAttr => "oid", ForceArray => [ 'OBJE
+CT' ]);
[download]

and give it a try.

McA