http://qs1969.pair.com?node_id=707940

#!/bin/perl use strict; use warnings; use CAM::PDF; my $doc = CAM::PDF->new('PPC_Info_Leaflet.pdf'); my $txt; for (1..4) { $txt .= $doc->getPageText($_); $txt .= "\n"; } print $txt;