#!/usr/bin/perl
use strict;
use PDF::API2;

# A4
my $pdf = PDF::API2->new(
  width  => 595, height => 842,    
);

my $page = $pdf->page;
my $txt  = $page->text;
my $font = $pdf->corefont('Times-Roman');
$txt->font( $font, 32 );
$txt->translate( 100, 500 );
$txt->text( 'Test PDF with Keywords' );

my @pages = qw(
PageName1 PageName2 PageName3
PageName4 PageName5 PageName6
PageName7 PageName8 PageName9 );

$pdf->info(
  'Keywords' => join ';',@pages
);
$pdf->saveas('template.pdf');

my $pdf1 = PDF::API2->open('template.pdf');
my %info = $pdf1->info();

my @pages = split ';',$info{'Keywords'};
print join "\n",@pages;