sub RLS_ropen($) {
    my ($name) = @_;

    defined($name)
       or die "A file name must be supplied to RLS_ropen\n";

    open(my $dbh, '<', $name)
       or return '';

    return $dbh;
}   # end RLS_ropen