open(PAGES, "<pages.txt") || die $!;
@pages = <PAGES>;
close(PAGES);