Laying Out the Header 

sub add_pdf_header {
  my($pdf) = @_;

  $pdf->setSize(18);
  $pdf->setFont('Helvetica-Bold');
  $pdf->centerString(0, 845, 550, 'Example Corp - Phone List');

  $pdf->setSize(11);
  $pdf->setFont('Helvetica');
  $pdf->addRawText('Level 27, 150 Willis Street',    274, 527);
  $pdf->addRawText('PO Box 55-502, Manners Street',  274, 514);
  $pdf->addRawText('Telephone:',                     462, 527);
  $pdf->addRawText('Facsimilie:',                    462, 514);
  $pdf->addRawText('04 555 2267',                    519, 527);
  $pdf->addRawText('04 555 5596',                    519, 514);
}