#!perl

use PDF::Reuse;

use constant mm => 25.4 / 72; # 72 punkty na cal to 2.83 punktu na 1 mm
use constant in => 1 / 72;
use constant pt => 1;

prFile('h1.pdf');
prFont('Helvetica');
prFontSize(12);
my $str = 'This module could be used when you want to mass produce similar (but not identical) PDF documents';
prText(5/mm, 170/mm, $str);
prText(5/mm, 170/mm - 12/pt, $str);
print prStrWidth($str, 'Helvetica', 12/pt);
prEnd();