#!/usr/bin/perl
# Module verwenden
use XML::Simple;
#use Data::Dumper;
# Objekt erstellen
$xml = new XML::Simple;
# XML-Datei einlesen
$data = $xml->XMLin("K:/Programme/Perl/XML_TEST/beispiel.xml");
# Ausgabe

#print Dumper($data);
print  $data->{HISTORY}->{VERSION}->[0]->{STAND}; 

<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
<HISTORY>
 <HEADER>
   <BAUFORM> 
 	C0805
   </BAUFORM>
   <URSPRUNG>
         DATABASE_REFLOW
   </URSPRUNG>
   <ART>               
	OPTISCH
   </ART> 
   <LOT>
         BLEIFREI
   </LOT>
   <ERSTELLER>
         LEGDAA0
   </ERSTELLER>
   <ERSTELL_DATUM> 
	12.03.2008
   </ERSTELL_DATUM>
 </HEADER>
  <VERSION>
   <STAND>
     1.01_P1
   </STAND>
   <USER>
     Andreas Daschner
   </USER>
   <DATUM>
     12.03.2008
   </DATUM>
   <BESCHREIBUNG>
     bla bla
   </BESCHREIBUNG>
  </VERSION>
  <VERSION>
   <STAND>
     1.02_P1
   </STAND>
   <USER>
     xxx
   </USER>
   <DATUM>
     12.03.2008
   </DATUM>
   <BESCHREIBUNG>
     blabla
   </BESCHREIBUNG>
  </VERSION>
</HISTORY>

print  $data->{VERSION}->[0]->{STAND}; 

$xml = XML::Simple->new( KeepRoot => 1 );