my $req = $ENV{QUERY_STRING};

$req =~ s/^.*\///;
$req = 'index' if -e $req;

my $page = "pages/$req.html";

$page = "pages/index.html" unless -e $page;