#!/usr/bin/perl

use strict;
use warnings;
use Devel::SimpleTrace;
use CAM::PDF;
use CAM::PDF::Content;
use CAM::PDF::PageText;
use Data::Dumper::Concise;

my $file = '/root/Desktop/sample1.pdf';
binmode STDOUT, ":encoding(utf8)";

my $pdf = CAM::PDF->new($file);
for my $pagenum(1 .. $pdf->numPages) {      
    my $contentTree = $pdf->getPageContentTree($pagenum) or next;
    $contentTree->validate() or die $@;
    print Dumper($contentTree->render('CAM::PDF::Renderer::Dump'));
    $pdf->setPageContent(2,$pagenum);
    last;
}