#!/usr/bin/perl -w
use strict;
use warnings;
use PDF::API2;
use PDF::Table;

my $pdftable = new PDF::Table;
my $pdf = new PDF::API2(-file => "testpdf.pdf");
my $page = $pdf->page;

my $some_data =[
        ["1 Lorem ipsum dolor","Donec odio neque, faucibus vel","consequat quis, tincidunt vel, felis."],
        ["Nulla euismod sem eget neque.","Donec odio neque","Sed eu velit."],
        ["testzeile 3"],
        ["testzeile 4"],
];
   
$pdftable->table(
        $pdf,
        $page,
        $some_data,
        x => 10,
        w => 490,                                               
        start_y => 750,
        next_y  => 700,                         
        start_h => 300,
        next_h  => 500,
        border_color   => 'red',
);

$pdf->saveas();