Select Code to Download

use strict;
sub RLS_ropen($) {
...
}   # end RLS_ropen

my $fh = RLS_ropen "test.tmp";

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