##
#!/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);
####
abc
xyz