sub make_db {
    open(OUT, '>page_data') or die "Can't open output db: $!";
    while (<DATA>) {
        chomp;
        print OUT $_, "\015\012";
    }
    close OUT;
}