sub newpage {
    my $page = $pdf->page;
       $page->mediabox(792,612);

    header($page);
    footer($page);
    page_nr($page, $page_num++);

    return $page;
}