tie my @pages, 'Tie::File', "/var/www/ndawn/code/pages", mode => O_RDONLY, memory => 0 or die $!;
$ND::PAGE = 'main' unless grep { /^$ND::PAGE$/ } @pages;
tie my @pages, 'Tie::File', "/var/www/ndawn/code/pages", mode => O_RDONLY, memory => 0 or die $!;
$ND::PAGE = 'main' unless grep { /^$ND::PAGE$/ } @pages;