use strict;
use warnings;
use utf8;

use CAM::PDF;
use CAM::PDF::PageText;

my $FileName = shift || die "Usage:Command line argument Missing. Give a PDF file as argument\n";

my $Pdf_Obj = CAM::PDF->new($FileName);

print text_from_page(1);

sub Text_From_Page 
{
    my $pg_num = shift;
    return CAM::PDF::PageText->render($pdf->getPageContentTree($pg_num));
}