Help for this page

Select Code to Download

Select or download this

my $file = 'C:\Program Files\Apache Group\Apache2\htdocs\legastronome\
+XML\Admin\coffee.xml';
my $xml = XMLin($file);

Select or download this

open F, '< C:\Program Files\Apache Group\Apache2\htdocs\legastronome\X
+ML\Admin\coffee.xml'
   or die "Problem";
@data = <F>;
my $xml = XMLin(join '', @data);