#!/usr/bin/perl
use strict;
use warnings;
use PDF::API2;

my $file = 'some.pdf';
my $pdf  = PDF::API2->open($file);
my $pages  = $pdf->pages();
printf "PDF Version : %s\n",$pdf->version();
printf "Pages       : %s\n",$pdf->pages();

for my $n (1..$pages){
  my $page = $pdf->openpage($n);
  printf "Page %3d Media %5.2f %5.2f %5.2f %5.2f\n",$n,$page->get_mediabox;
}