#! /usr/bin/perl
use strict;
use warnings;

use 5.010;
use PDF::Create;

# some data to print
my @liste = ( '00' .. '99' );


my $workdir = "C:/temp";
my $filename = "liste.pdf";


chdir $workdir	or die "chdir($workdir) failed: $!";


my $pdf = PDF::Create->new(
	'filename'	=> $filename,
	'Author'	=> 'linuxer',
	'Title'		=> 'liste',
	'CreationDate'	=> [ localtime ],
);

my $font = $pdf->font(
	'BaseFont'	=> 'Helvetica',
);


my $root = $pdf->new_page( 
	'MediaBox'	=> $pdf->get_page_size('A4'),
);


my $page = $root->new_page();

my $i=0;
for my $row ( @liste ) {
	
	# new page after X (here 63) lines; depends on used font size
	# may be it's possible to calculate number of rows, depending on page size and font size
	if ( 63 < $i++ ) {
		$page = $root->new_page();
		$i    = 0;
	}

	$page->printnl( $row, $font );
}

$pdf->close;