Basic PDF Production 

require PDF::Report;

my $pdf = PDF::Report->new(
  PageSize        => "A4", 
  PageOrientation => "Landscape"
);
$pdf->newpage(1);  # Turn off auto page numbering
$pdf->openpage;

$pdf->shadeRect(200, 580, 640, 554, '#eeeeee');

$pdf->setSize(18);
$pdf->setFont('Helvetica-Bold');
$pdf->addRawText('Example Corp - Phone List', 300, 560, 'black');

open my $out, '>', $pdf_filename or die "open($pdf_filename): $!";
print $out $pdf->Finish;

• Sample output