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

##</code><code>##

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