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;