#!/usr/bin/perl

use strict;
use warnings;
use CAM::PDF;
use LWP::UserAgent;

my $pdf_filename = '/root/Desktop/perl.pdf';
my $pdf_link = 'http://www.greenteapress.com/perl/perl.pdf';

my $client = LWP::UserAgent->new();

my $capture = $client->get("$pdf_link", ":content_file" => "$pdf_filename");

convert_pdf_to_text();

sub convert_pdf_to_text {
    use CAM::PDF::PageText;
    my $pdf_filename = '/root/Desktop/perl.pdf';
    my $pdf          = CAM::PDF->new($pdf_filename);
    my $y            = $pdf->getPageContentTree(1);
    print CAM::PDF::PageText->render($y);
}