open(TL,"$path_to_lang/$thislang/iespell.txt"); while(){push(@LaNg,$_)} &exec_lang; print "Content-type: text/html\n\n"; print qq~ ieSpell $body ~;