open( my $WF2, ">", "$qpath/TRANSLATE/$trans_file" )
flock ($WF2, LOCK_EX) or die "Lock konnte nicht druchgefuehrt werden"; # sperre Datei