Pagination, der Trick mit dem Offset

[CPAN]

use Data::Page;  
…  
say 'schon letzte Seite' if $page->last_page == $page->current_page;