ался использовать CAM: PDF :: Annot для своей основной цели, собирая аннотации двух PDF-файлов, но безуспешно.

Я пытался подражать тому, что находится в кратком обзоре пакета на CPAN, но продолжаю появляться с ошибкой.

Код в кратком описании CPAN (как законченный сценарий) или любой совет будет полезен.

CPAN страница:http://metacpan.org/pod/CAM::PDF::Annot

Пока что у меня есть:

#!/usr/bin/perl
use strict
use CAM::PDF;
use CAM::PDF::Annot;

sub main()
{
   my $pdf = CAM::PDF::Annot->new( 'testAnnotPDF.pdf' );
   my $otherDoc = CAM::PDF::Annot->new( 'testAnnotPDF2.pdf' );
   my $page = 1;
   my %refs;
   my $hrefs = \%refs;
   for my $annotRef  (@{$pdf->getAnnotations($page)}){
       $otherDoc->appendAnnotation( $page, $pdf, $annotRef, $hrefs );
   }
   $otherDoc->output('pdf_merged.pdf');
}
exit main;