#!/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();