Select Code to Download

sub text_center
{
...
  my $width=$self->advancewidth($text);
  return $self->text($text,-indent=>-($width/2),@opts);
}

#!/usr/bin/perl
package PreflightText;
...
my $saveas = "/tmp/center.pdf";
warn "saving as: $saveas\n";
$pdf->saveas($saveas);