Select Code to Download

#!/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>