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

use PDF::API2;

# zu bearbeitendes PDF oeffnen
my $pdf = PDF::API2->open( "out/file-1.pdf" );

# gewünschte Seite auswählen
my $page = $pdf->open_page(1);

# barcode Bild-Datei laden
my $image = $pdf->image( "test.png" );

# barcode einfuegen; Position ausprobieren
$page->object($image, 100, 100);

# neues PDF schreiben
$pdf->save("sample.pdf");