#!/usr/bin/perl
use XML::Parser;
my $zeiger = new XML::Parser ();

sub anfang 
{
  $wert_des_zeigers  = shift;
  $starttag= shift;
    print "<$starttag>";
  print "\n";
}
sub anfanga
{
  $wert_des_zeigers  = shift;
  $starttag= shift;
#chomp $starttag;
    print "Anfanga:$starttag";
  #print "\n";
}
sub ende
 {
  ($wert_des_zeigers,$endtag) = @_;
  print "Ende: $endtag\n";
}
sub inhalt 
{
($wert_des_zeigers,$inhalt)=@_;
print " $inhalt";
}

$zeiger->setHandlers (Start => \&anfanga,End => \&ende);
$zeiger->parsefile ("c:\\test.xml");