open DOM_WORK, '>/usr/spool/lpd/dom/dom.work';
&get_text;