#!/usr/bin/perl
use lib '../lib';
use PDF::API2;
$pdf = PDF::API2->new;
my $font = $pdf->corefont('Arial-Bold');
sub mark {
my ( $page ) = @_;
my $t = $page->text;
$t->font( $font, 20 );
$t->translate( 20, 700 );
$t->text( $pdf->pages );
}
for (1..8) {
mark $pdf->page;
}
mark $pdf->page(2);
$pdf->saveas( "$0.pdf" );
__END__