my $CurPage = CGI::param('CurrentPage');
if (defined CGI::param('NextPage')){
  $CurPage++;
} elsif (defined CGI::param('PrevPage')){
  $CurPage--;
}

print qq{
  <input type="hidden" name="CurrentPage" value="$CurPage">
};

for my $Entry (@Entries[$CurPage * 5 .. $CurPage * 5 + 4]){
  # Show each entry however you normally would
}
print '<a href="myscript.cgi?Prev=1">Previous</a>' if $CurPage;
print '<a href="myscript.cgi?Next=1">Next</a>'
  unless $CurPage * 5 + 5 >= @Entries;