use PDF::API2;

$pdf = PDF::API2->open('PDB_TT_TimeVault.pdf');
$pdf->preferences( -outlines => 1 );
$page = $pdf->page(1);
$otls = $pdf->outlines;
$otl = $otls->outline;
$otl->title('foo');
$otl->dest($page);
$pdf->saveas('new.pdf');