...
my ($endw, $ypos) = $tb->apply;

$page->mediabox(0, $ypos,  62/mm, 100/mm);    # <---

$pdf->save;
$pdf->end;