#!/usr/bin/perl

use strict;
use warnings;
use CAM::PDF;
use CAM::PDF::PageText;

my $pdf = CAM::PDF->new("2.pdf");
my $pageone_tree = $pdf->getPageContentTree(1);
open TEST, ">", "test.txt" or die $!;
print TEST CAM::PDF::PageText->render($pageone_tree);
close TEST;