...
while( my $Datei = readdir DIR ){

	if ( $Datei =~ /\.doc$/i ){
 my $Word = Win32::OLE->new('Word.Application', 'Quit');
2:                 $Word->{'Visible'} = $debug;         # if you want to see what's going on
3:                 $Word->Documents->Open("$plpath$tmp_mail$Datei") || die("Unable to open document ", Win32::OLE->LastError());
4:                 
5:                 my $Versender1 = $Word->ActiveDocument->FormFields("Text1")->Result;         
6:                 my $Versender2 = $Word->ActiveDocument->FormFields("Text18")->Result;         
7:                 my $VersStr = $Word->ActiveDocument->FormFields("Text20")->Result;
....    
	$Word->Quit();
}
}