#!/perl/bin/perl  -w
use strict;
use XML::Parser;
use IO::File;

my $fileStream = new IO::File ("sample_xml.xml");

my $parser = new XML::Parser 
   ( Handlers => 
      {   # Creates our parser object
         Start   => \&hdl_start,
         End     => \&hdl_end,
         Char    => \&hdl_char,
         Default => \&hdl_def,
      }
   );

$parser->parsefile($fileStream);