# Don't yet know why we'd want to return @paragraphs...
   # unshift( @paragraphs, join( ' ', @paragraph ) ) if scalar(@paragraph);
   # return ( $endw, $ypos );  # , join( "\n", @paragraphs ) )
   unshift( @paragraphs, join( ' ', @paragraph ) ) if scalar(@paragraph);
   my $overflow = join("\n",@paragraphs);
   return ( $endw, $ypos, $overflow);    #$overflow text returned to script

##</code><code>##

 use PDF::API2;
  use PDF::TextBlock;

  my $pdf = PDF::API2->new( -file => "/home/mytest.pdf" );
  my $tb  = PDF::TextBlock->new({
     pdf => $pdf,
     x => 120,
     y => 350,
     w => 350,
     h => 300,
     
     fonts     => {
             b => PDF::TextBlock::Font->new({
           pdf  => $pdf,
           font => $pdf->corefont( 'Helvetica-Bold',    -encoding => 'latin1' ),
        }),
     },
  });
  
  $tb->text(
     $tb->garbledy_gook .
     "<b>This fairly lengthy</b>\n\n".
      'rather verbose sentence <b>is tagged</b> to appear ' .
     'in a <b>different font, specifically the one we tagged b for "bold".</b> ' .
     $tb->garbledy_gook .
     ' <href="http://www.omnihotels.com">Click here to visit Omni Hotels.</href> ' .
     $tb->garbledy_gook . "\n\n" .
     "New paragraph.\n\n" .
     "Another paragraph."
  );
#Get return values from altered TextBlock.pm

  ($endw,$ypos,$overflow)=$tb->apply;
  
  $overflow="Overflow text is :- $overflow";

#Now place the overflow text in a new text block
  
   my $tb  = PDF::TextBlock->new({
     pdf => $pdf,
     x => 120,
     y => 260,
     w => 250,
     h => 50,
     fonts     => {
             b => PDF::TextBlock::Font->new({
           pdf  => $pdf,
           font => $pdf->corefont( 'Helvetica-Bold',    -encoding => 'latin1' ),
        }),
     },
  });
  $tb->text("$overflow");
  
  $tb->apply;
  $pdf->save;