my $page_number = $q -> param('p');
if ($page_number =~ /^\d+$/) {
  generate_page($page_number);
} else {
  generate_error_page('One of us is confused.');
}