#!/usr/bin/perl
use strict;
use warnings;
use Image::Info qw(image_info dim);
use PDF::Reuse;

# die neue Datei
prFile('myFile.pdf');

# Schrift steuern
prFont('Courier-Bold');                    # Sets font  
prFontSize(20);                            # And font size  

# Bild einfügen
my $file = 'test.jpg';
my $info = image_info($file);
my ($width, $height) = dim($info);    # Get the dimensions

# ich binde vorerst ein, weil ich nicht weiß, wie ich ein bestehendes Dok öffne
prDoc('meineFSK.pdf',1,1);

my $intName = prJpeg("$file",         # Define the image
                     $width,         # in the document
                     $height,
                     0);

foreach my $z (1..15) {
    print $z."\n";
    prText(235,700-$z*20,"Zeile $z");
}
# schreiben der Datei
prEnd;