Select Code to Download

my $pdf = CAM::PDF-> new( $file );

...
);

$n->{ value }{ value } = length $p3-> { StreamData }{ value };

$pdf-> getObjValue( $node-> { value })
$pdf-> getObjValue( $node-> { value }{ a_key }{ value })

$pdf-> getObjValue( $node-> { value })
$pdf-> getValue( $node )

CAM::PDF::Node-> new( 'reference', $node-> { value })-> { value }
$node-> { value }

use strict;
use warnings;
...
$file =~ s/\.pdf$/++$&/i;

$pdf-> cleanoutput( $file );