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