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

use CGI qw/:standard/;
use PDF::Template;

my $pdf = PDF::Template->new(filename => 'report.xml');
my $loop = [];
push @$loop, {Name => "Test" , Address => rand} for 1..80;
$pdf->param( records => $loop );
print header(-type=>'application/pdf'), $pdf->get_buffer;