my $page = CGI::param('page'); if ($page !~ /^\d*$/) { $page = 0; }