#########################################################################
#
#  Script to personalise pdf
#
#########################################################################

use PDF::Reuse;

&preparepdf('Mr', 'John McKay');

sub preparepdf {
  my $title = shift(@_);
  my $name  = shift(@_);

  prFile("hunting-2010-05.pdf");

  prCompress(1);
  prFont('Arial');
  prFontSize(10);
  prForm("foxy.pdf");

  prText(90,  780, "$title $name MP");
  prText(90,  667, "Dear $title $name,");

  prPage();
  prDoc("foxy.pdf",2);
  
  prEnd();
}