<?xml version='1.0' standalone='yes'?>
<opt>
  <links title="Links" key="foi">
    <page link="http://www.perl.org" title="www.perl.org">
      <active en="The home of Perl" de="Die Homepage von Perl" />
      <passive en=" and the Perl Community, the former home of the
                   Perl Mongers and all."
               de=" und der Perl Gemeinschaft, die alte Homepage
                   der Perl Mongers usw." />
    </page>
  </links>
</opt>

#!/usr/bin/perl -w

use CGI qw/:standard/;
use strict;
use warnings;
use CGI;

print header;
print start_html(-title=>"Test",-style=>{-src=>"site.css"});

print "<style type='text/css'> input{ text-align:center; color: black; font-weight:600; } </style>\n";
print "<style type='text/css'> .input_left{ text-align:left; color: black; font-weight:600; } </style>\n";


use XML::Simple;               # XML ganz einfach
use Data::Dumper;              # Daten visualisieren
use Slurp;                     # Slurpt ganze Dateien in Variablen

open ( DUMP , "> out.dump" ); # Öffnet Ausgabedatei für Data::Dumper

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

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

print DUMP Dumper $struct;   # Druckt in die Ausgabedatei

open ( XML , "> out.xml" );     # Öffnet Ausgabedatei für XML

my $dump = slurp( "out.dump" ); # Inhalt der Dumper-Datei einlesen

$struct = eval( $dump );    # Macht eine Datenstruktur daraus

$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

close (DUMP);
close (XML);