open( XML, qq{echo "<doc>" cat $file echo "</doc>" |})
or die "could not open file: $!";
$p->parse( \*XML);