#!/usr/bin/perl -w

use strict;
use warnings;
use XML::Simple;               # XML ganz einfach

my $struct = XMLin( "test.xml",    # Macht eine Datenstruktur daraus
             ( forcearray => [ qw/page/ ] ) );

open ( XML , "> out.xml" );     # Öffnet Ausgabedatei für XML
$struct->{links}->{page}->[0]->{time} = time(); # fügt Zeit hinzu.
$xml = XMLout( $struct,     # Macht XML aus der Datenstruktur
         ( xmldecl => 1 ) ); # Zeile: <?xml version='1.0' standalone='yes'?>
print XML $xml;             # Druckt in die Ausgabedatei
close (XML);