open DOM_WORK, '>/usr/spool/lpd/dom/dom.work';
&get_text;                                   
sub get_text{                                
  my @text=(<>);                               
  my $line =0;                                 
  foreach $line (@text) {                      
    my $text =$text[$line];                      
    $text =~tr/\x0c-\x0d//d;                     
    select DOM_WORK;                             
    print "$text[$line]";                        
    close DOM_WORK;                              
  }                                    
  &get_domkey;
}