#! perl use strict; use warnings; use CAM::PDF; use CAM::PDF::PageText; my $filename = 'test.pdf'; my $pdf = CAM::PDF->new($filename); my $pageone_tree = $pdf->getPageContentTree(1); print CAM::PDF::PageText->render($pageone_tree);