use XML::QL;
print XML::QL->query(<<'EOT');
WHERE <INTRODUCTION> $intro </INTRODUCTION>
<PROPER-USE> $use </PROPER-USE>
IN 'steth.xml'
CONSTRUCT $intro
$use
EOT
use XML::QL;
print XML::QL->query(<<'EOT');
WHERE <INTRODUCTION> $intro </INTRODUCTION>
<PROPER-USE> $use </PROPER-USE>
IN 'steth.xml'
CONSTRUCT $intro
$use
EOT