sub convert_pdf_to_text
{
    use CAM::PDF;
    use CAM::PDF::PageText;

    my $pdf = CAM::PDF->new($pdf_filename) || die "$CAM::PDF::errstr\n";
        my $y=CAM::PDF::PageText->render($pdf->getPageContentTree(1));
        print "$y\n";
    }
}