#!/usr/bin/env perl


use strict;
use warnings;
use CAM::PDF;
use feature qw(say);


my $file = shift;

my $pdf = CAM::PDF->new($file);
say $pdf->getPageText(1);

__END__