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

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

##</code><code>##

    sub Open {
        my $opts= UNIVERSAL::isa( $_[-1], "HASH" )
            ? pop(@_) : {};
        my( $file, $mode, $mask )= @_;
        # ...
    }

    Open( "file" );
    Open( "file", { Exclusive=> 1 } );
    Open( "file", "w", 0666, { Locked=>1 } );

##</code><code>##

    Create( Name=>"This", Users=>'fred','bob','joe' );

##</code><code>##

    Create( Name=>"This", Users=>['fred','bob','joe'] );