#!/usr/bin/perl

use XML::Parser;

@files = <$plrepository/*.xml>;

foreach $xmlfile (@files) {
      #something is omitted
      $p2 = new XML::Parser(Handlers => {Start => \&handle_start,
                                           End   => \&handle_end,
                                           Char  => \&handle_char});
      
      $p2->parsefile($xmlfile);

}
  
  sub handle_start {
   my ($pkg,$element,%attr) = @_;
      $current_element = $element;
      if ( $element =~ /Header/i ) {
        $Number=$attr{Number}; 
        open (OUT, ">$outputfile") or die "No file";
      }
        
      #something is omitted
  }
  

  
  sub handle_end {
    my ($pkg,$element,%attr) = @_;

    if ( $element =~ /Header/i ) {

        print OUT $Number,"$separator\n";
                print "\tNumber ". $Number . "\n";   
        close (OUT);
    }
      #something is omitted      
  }
   sub handle_char {
   my $text = $_[1];
    if ( $current_element =~ /^Number$/i ) {
       ($text !~ /^\s*$/) && ($Number = $text);
    }
      #something is omitted
  }