Dare to script tree-based XML with Perl

 
#
# Table structure for table 'rules'
#
CREATE TABLE rules (
  symbol char(5),
  field char(8),
  compare char(2),
  value char(16),
  action char(5)
);

INSERT INTO rules VALUES ('IBM','price','gt','100','sell');
INSERT INTO rules VALUES ('MSFT','volume','gt','65000000','buy');
INSERT INTO rules VALUES ('CSCO','change','gt','3','sell');