my $pdf = PDF::API2->open($file);
my $pdpage = $pdf->openpage(1);
my $text = $pdpage->text;
$text->font( $pdf->corefont('Times', -encoding => 'latin1'), 12 );
$text->fillcolor('red');
$text->text("Wahoo!");
$pdf->saveas("/tmp/foo123.pdf");
$pdf->end;