#!/usr/bin/perl
use PDF::API2;
$pdf = PDF::API2->open('test.pdf');
#%info = $pdf->info;
$font = $pdf->corefont("Times-Roman");
$info{Title} = $font->text( "New Title");
$pdf->info (%info);
$pdf->update;
$pdf->saveas("newfile.pdf");