Help for this page
#!/usr/bin/perl -w use strict; ... $parser->filterfile('pets.xml', \*STDOUT); # ... and the functions defined in the article
#!/usr/bin/perl -w use strict; ... $parser->filterfile('pets.xml', \*STDOUT); # ... and the functions (78 lines in total)