...
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();
}
}

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

#!/usr/bin/perl

use strict;
use warnings;

eval{
   die 7;
} or do{  die "died with $@" };

#!/usr/bin/perl

use strict;
use warnings;

for(0..9) {
    eval{
       die 7 if $_ == 7;
       print $_,"\n";
    } or do{  next; };
}

 #!/usr/bin/perl
 
 use strict;
 use warnings;

 for(0..9) { #Schleifenanfang
     eval{ #eval Funktion
        die 7 if $_ == 7; # ???
        print $_,"\n"; # Ausgabe der std. Variable $_
     } or do{  next; }; # ok redo,last,next kenn ich ja seit gestern :)
 }

use strict;
use warnings;
use Win32::OLE;
use File::Spec::Functions qw/catfile/;

my $dir_path = $ARGV[0]
  or die "No directory argument given\n";

{
  open my $dir, $dir_path
    or die "Couldn't open $dir_path: $!\n";

  # We only have to launch Word once before the loop and can keep it open
  # to improve performance...
  my $word = Win32::OLE->new('Word.Application', 'Quit')
    or die "Couldn't launch Word: " . Win32::OLE->LastError . "\n";
  $word->{Visible} = $debug;

  while (my $file_name = readdir $dir) {
    next unless ($file_name =~ /\.doc$/i);
    my $file_path = catfile($dir_path, $file_name);

    if (my $document = $word->Documents->Open($file_path)) {
      eval {
        my $text1 = $document->FormFields('Text1')->Result;
        my $text18 = $document->FormFields('Text18')->Result;
        my $text20 = $document->FormFields('Text20')->Result;

        print "File($file_path) {\n  text1: $text1,\n  text18: $text18,\n  text20: $text20\n}\n"
      };
      warn "Error processing $file_name: $@\n" if ($@);
      $document->Close();
    }
    else {
      warn "Couldn't open $file_name: " . Win32::OLE->LastError . "\n";
    }
  }

  # Neither $dir nor $word have to be closed explicitly as they are both local objects whose
  # refcount drops to zero here and their destructors will close them as desired.
}