#!/usr/bin/perl
use warnings;
use strict;

use XML::Parser;


my $p= new XML::Parser ( Style => 'Debug' );

my @text = <DATA>;
$p -> parse ( @text );


__DATA__
<?xml version="1.0"?>

<adressen>
<vorname>Micky</vorname>
<nachname>Maus</nachname>
<telgesch>123456789</telgesch>
</adressen>