$item="heat741a" ; 
$OrderQty = 55;
  open(LOG, ">order.xml") || die "Can't open the log file: $!\n";

print LOG  qq(<?xml version="1.0"?>
<order>
<product>$item</product>
<quantity>$OrderQty</quantity>
</order>);