select DOM_WORK;                             
    print "$text[$line]";                        
    close DOM_WORK;