1: format LOG =
2: <?xml version="1.0"?>
3: <order>
4: <product>@<<<<<<<\product>
5: $item
6: <quantity>@<<\quantity>
7: $OrderQty
8: <\order>
9: .

##</code><code>##

<?xml version="1.0"?>
<order>
<product>heat741a\product>
<quantity>55 \quantity>
<\order>

##</code><code>##

 1: $item="heat741a";
 2: $OrderQty = 55;
 3: open(LOG, ">order.xml") || die "Can't open the log file: $!\n";
 4: $format  = "format LOG = \n"
 5: . "<?xml version=\"1.0\"?>\n"
 6: . "<order>\n"
 7: . "<product>" . '@<<<<<<@' . "/product>\n"
 8: . '$item,"<"' . "\n"
 9: . "<quantity>" . '@' . '<' x (length($OrderQty) - 1) . '@' . "/quantity>\n"
10: . '$OrderQty,"<"' . "\n"
11: . "\</order>\n"
12: . ".\n";
13: eval $format;    
14: write LOG;
15: close LOG;