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

my $file_name="test.pdf";
my $pdf = CAM::PDF->new($file_name); 
my $pageone_tree = $pdf->getPageContentTree(1); # replaced 4 with 1 for testing 
$pageone_tree->render("CAM::PDF::Renderer::Dump");