Help for this page
#!/usr/bin/perl use strict; ... push @$loop, {Name => "Test" , Address => rand} for 1..80; $pdf->param( records => $loop ); print header(-type=>'application/pdf'), $pdf->get_buffer;
<pdftemplate h="8"> <pagedef margins="1i"> ... </font> </pagedef> </pdftemplate>