for my $pagenum ( 1 .. $pdf->pages ) {
    my $page = $pdf->openpage( $pagenum );
    # mach was mit $page
}