my $xml = slurp ( "in.xml" );  # XML aus der Datei in String einlesen

my $struct = XMLin( $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 $struct;             # Druckt in die Ausgabedatei
print Dumper $struct;   # Druckt

close (XML);

print XML %{$struct};