my $pdf = CAM::PDF->new('my.pdf');
my $page = $pdf->getPage(1);
my $mediabox =  $page->{MediaBox}->{value};
my( $hix, $hiy, $lox , $loy ) = map { $_->{value} } @$mediabox;