#!/usr/bin/perl
use Data::Dumper;
use LWP::UserAgent;

my $pdf_filename="/tmp/file.pdf";
my $pdf_link = "http://investor.google.com/pdf/2010Q1_earnings_google.pdf";

$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;
    use CAM::PDF::PageText;

    my $pdf = CAM::PDF->new($pdf_filename) || die "$CAM::PDF::errstr\n";
    foreach (1..($pdf->numPages()))
    {
        my $x=CAM::PDF::PageText->render($pdf->getPageContentTree($_));
        print "$x\n";
    }
}