use strict;
use vars qw(@ISA %pgsz $VERSION);

@ISA = qw(PDF::API2::Basic::PDF::Pages);
use PDF::API2::Basic::PDF::Pages;
use PDF::API2::Basic::PDF::Utils;
use PDF::API2::Util;

use PDF::API2::Annotation;

use PDF::API2::Content;
use PDF::API2::Content::Text;

use PDF::API2::Util;

use POSIX qw(floor ceil);
use Math::Trig;use strict;
use PDF::API2;


my $pf = 'mypdffile.pdf';
my $pdf = PDF::API2->open($pf) or die $!;

print "Starting analysis of $pf...\n";
my $pagenumber = $pdf->pages;
print "$pagenumber pages.\n";
my %opts = $pdf->info;
while (my ($k, $v) = each %opts) 
{
print "option $k is: $v\n" 
}