for my $fn (glob ("\"$programmpfad/images/1/*.jpg\"")) {
    my $SrcImg=$mw->Photo(-file => $fn);
    my $DstImg=$mw->Photo();
    my $w=$SrcImg->width();
    my $h=$SrcImg->height();
    my $f=int($h/200);
    $DstImg->copy($SrcImg, -subsample => ($f, $f));  # rescales image to one size
    $i++;
    push @ImgArr, $DstImg;
    print "$i:$fn:$w $h\n";
    $SrcImg->delete();
    my $e=$first_pdf->addchild("", -data => $fn,);
    $first_pdf->itemCreate($e, 0,
               
            -itemtype => "imagetext",
               
            -image => $DstImg,
               
            -text => $fn,
               
            -style => $TextOver,
               
           );
      }