#!/usr/bin/perl -wT

use strict;
use CGI;
use IO;
use XML::Writer;

my $cgi = new CGI;
my $i;
my @data;
my $e = 0;
my $outfile = new IO::File(">test.xml");
my $writer = new XML::Writer(OUTPUT => $outfile, DATA_MODE => 'true', DATA_INDENT => 2, UNSAFE => 1);

$writer->xmlDecl('ISO-8859-1');
$writer->comment('Test-Entries');

$data[$e]{date} = "11-12-2002";
$data[$e]{nom} = "Fred Bloggs ";
$data[$e]{email} = 'fred@bloggs.ch';
$data[$e]{eintrag} = "This is a test!";

$writer->startTag('test');
for $i (0 .. $#data) {
    $writer->startTag('entry');
    foreach my $data (keys %{$data[$i]}) {
        $writer->startTag($data);
        $writer->characters($data[$i]{$data});
        $writer->endTag();
    }
    $writer->endTag();
}
$writer->endTag();
$writer->end();

print $cgi->header;
print "Done!\n";