7 my $pdftable = new PDF::Table;
8 my $pdf = PDF::API2->new();
10 #$pdf->mediabox(612,792);
11 my $fnt = $pdf->corefont('Helvetica-Bold');
12 my $page = $pdf->page; # returns the last page
13 my $txt = $page->text;
15 $text_to_place = "moo moo";
17 ($width_of_last_line, $ypos_of_last_line, $left_over_text) =
18 $pdftable->text_block(
33 $pdf->saveas("$htdocs_path/barcodes/foo.pdf");