#!/usr/bin/perl

# XML made simple

use XML::Simple;
use Data::Dumper;

my $xs = new XML::Simple(
  keeproot   =>   1,
  searchpath => "."
);

my $output = {
  'jobs' => {
    'xmlns' => 'http://xxx.de/schemata/job',
    'object' => {
      'id' => '1000-0001-0001-0050',
      'job' => {
        '1281625970573477034' => {
          'check'           => '0403',
          'expiration_time' => '20110101000000',
          'state'           => 'open'
        },
        '1281625887738196188' => {
          'check'           => '1219',
          'expiration_time' => '20110101000000',
          'state'           => 'open'
        }
      }
    }
  }
};

$output->{jobs}->{object}->{job}->{'9999999999999999999'} = {
  'check'           => '0101',
  'expiration_time' => '20110601000000',
  'state'           => 'open'
};

foreach my $job ( keys ( %{ $output -> {jobs} -> {object} -> {job} } ) ) {
  print "job: " . $job . "\n";
}

my $xml = $xs->XMLout($output);
print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" . $xml;