my $pdf = PDF::API2->new( -file => "test1.pdf" );
my $tb= PDF::TextBlock->new({
     pdf       => $pdf,
     fonts     => {
        b => PDF::TextBlock::Font->new({
           pdf  => $pdf,
           font => $pdf->corefont( 'Helvetica-Bold',    -encoding => 'latin1' ),
	   #fillcolor => '#ff0000', 
        }),
     },
  });
$tb->text("$some text" and hyperlinks);
my($endw, $ypos, $overflow)= $tb->apply();
$tb->y($ypos);
$pdf->save;
$pdf->end;