Laying out the Framework 

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

  add_pdf_header($pdf);
  add_pdf_column_headings($pdf);
  add_pdf_bars($pdf);
  add_pdf_listings($pdf, $data);

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