use PDF::API2;
 use PDF::Table;
 my $pdftable = new PDF::Table;
 my $pdf = new PDF::API2(-file => "my_table.pdf");
 my $page = $pdf->page;
 $page->mediabox(0,0,840,595);
my $data = [
 ["zeile1"],
 ["zeile2"],
 ["zeile3"],
 ["zeile4"],
 ["zeile5"],
 ["zeile6"],
 ["zeile7"],
 ["zeile8"],
 ["zeile9"],
 ];
$pdftable->table(
         $pdf,
         $page,
         $data,
         -x  => 50,
         -start_y => 450,
         -next_y => 450,
         -start_h => 100,
         -next_h => 100,
         -max_word_length=> 20,
         -w => 690,
         -padding => 5,
         -padding_right => 10,
         -font=> $pdf->corefont("Helvetica Bold", -encoding => "utf8",),
         -font_size      => 8,
  );
  $pdf->save();