Generated: Sun Aug 21 11:11:12 2011 from lib_xml.pl 2010/12/05 245.
#!/usr/bin/perl -w # NAME: lib_xml.pl # AIM: Gathering together useful 'xml' parsing functions use strict; use warnings; use File::Basename; # split path ($name,$dir,$ext) = fileparse($file [, qr/\.[^.]*/] ) 1; # eof - lib_xml.pl