use PDF::API2;

my $pdf = PDF::API2->open('uncropped.pdf');
$pdf->cropbox(100,100,500,500);

$pdf->openpage(1);

$pdf->saveas('cropped.pdf');