Re: Get the existing margin on a pdf page

[Anonymous Monk]

http://stackoverflow.com/questions/2604920/how-to-shift-pdf-page-using-perl-campdf-pdfapi2/2634583#2634583

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;