Select Code to Download

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

 use PDF::API2;
  use PDF::TextBlock;
...
  $tb->apply;
  $pdf->save;