#! /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(2);

# Barcode generieren
my $barcode = $pdf->barcode("ean13", "0123456789012");

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

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

__END__;