use strict;
package A;
{
    our %OPT= (
        fred => 1,
        barney => 2,
    );
}
sub getopts {
    our %OPT;
    # ...
}

##</code><code>##

my %OPT= ( ... );
sub getopts {
    # Global( =%OPT );