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