open( my $dbh, "< $name")
        or die "Couldn't open database file '$name': $!";