#! /usr/bin/env perl
use strict;      # WICHTIG!
use warnings;    # WICHTIG!
use 5.020;


use PDF::API2;   # WICHTIG!

# ANPASSEN
my $pdfdatei = 'out/file-1.pdf';
my $zieldatei = 'sample3.pdf';
my $heute = qx{date +%F};
my $uhrz  = qx{date +%T};


my $pdf = PDF::API2->new();

$pdf = PDF::API2->open($pdfdatei);

my $page =  $pdf->openpage(1);

my $font = $pdf->corefont('Helvetica');

my $text = $page->text();
$text->font($font, 15);
$text->position(200, 700);
my $infotext="Lager fertig: ".$heute.", ".$uhrz."\n\n\n";
$text->text($infotext);

$pdf->saveas($zieldatei);