#!/usr/bin/perl -w
use strict;
use warnings;
use PDF::API2;

my $TEMPLATE = '/path/to/scribus/generated/pdffile.pdf';
my $RESULT_PDF = '/path/to/script/generated/pdf_result_file.pdf';
my $INSTANCE = 'Print this code on form';

my $pdf = PDF::API2->open($TEMPLATE);
my $page    = $pdf->openpage('1');
my $text    = $page->text();
my $font    = $pdf->corefont('Helvetica');

# prepare text object
$text->font($font,48);        # Set font to Helvetica, 11pt
$text->fillcolor("#222222");  # This is black
$text->translate(173,660);    # Text start location for Corp chk box
$text->text("$INSTANCE");     # Print "X" at 173,660
$pdf->saveas($RESULT_PDF);
$pdf->end;

# print status message:
print STDERR "Efforts to automate pdf generation still under development.\n";
print STDERR "For the moment, please do this manually.  Thanks.\n";