#!perl
#perl write test 2 w/ xml
use strict;
use warnings;

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

# xml creation
my $xml = new XML::Simple;  # hast hier das my vergessen gehabt

# read XML file
my $data = $xml->XMLin("data2.xml"); # hast hier das my vergessen gehabt

# creating the txt file
my $data_file = 'h:\\xmlreadingperl\data.txt';

# write directly to the file
open( FILE, ">", $data_file )  or die $!;

print FILE Dumper($data); # printing the final stuff to txt file

close(FILE);