#!/usr/bin/perl

use PDF::API2;

my $filename="c:/filename.pdf";
my $pdf = PDF::API2->open("$filename");

for my $index (1 .. $pdf->pages) {
	my $page = $pdf->openpage($index);

	(my $llx, my $lly, my $urx, my $ury) = $page->get_mediabox;

	my $txt  = $page->text;

	$txt->textlabel($urx-100, $ury-30, $pdf->corefont('Arial'), 12, 'add text here');
}

my $fileout = "c:/fileout.pdf";
$pdf->saveas("$fileout");
$pdf->end;