NOWHINING: {
  no warnings qw (uninitialized);
  my %pages = ("index" => '1',
               "me"    => '1',
               "stuff" => '1',
               "links" => '1');
  my $page = shift;
  exit 0 unless $pages{$page} == '1'; 
}