sub Open {
        my( $file, $opts )= @_;
        foreach $key (  %$opts  ) {
            # ...
        }
    }

    Open( "file", { ReadOnly=>1, Retries=>2 } );