#!/usr/bin/perl -w

use strict;
use PDF::API2;
use PDF::Table;

my $pdf   = PDF::API2->new( -file => 'table.pdf' );
my $table = PDF::Table->new;
my $page  = $pdf->page;
$page->rotate(90);


my $hdr_props =
        {
                font       => $pdf->corefont("Helvetica", -encoding => "utf8"),
                font_size  => 14,
                font_color => '#000000',
                bg_color   => 'grey',
                repeat     => 0,
        };

$table->table( $pdf, $page, $data,
                x       => 50,
                w       => 495,
                start_y => 750,
                next_y  => 700,
                start_h => 300,
                next_h  => 500,
                padding => 3,
                header_props   => $hdr_props,
        );

$pdf->save;