my $pdf = CAM::PDF->new($file); my $p3 = $pdf->getObjValue($pdf->getObjValue($pdf->getObjValue($pdf->getRootDict()->{Names}{value}{JavaScript}{value})->{Names}{value}[1]{value})->{JS}{value}); $p3->{StreamData}{value} = <dereference(CAM::PDF::Node->new('reference', $p3->{Length}{value})->{value}); $n->{value}{value} = length $p3->{StreamData}{value};;