Help for this page

Select Code to Download

Select or download this

sub make_db {
    open(OUT, '>page_data') or die "Can't open output db: $!";
    while (<DATA>) {
...
    }
    close OUT;
}