Select Code to Download

package option_str;

...
    my ($class, $self, $value) = (shift, shift, shift);
    return $self->{value};
}

sub set_option
{
...

    return $options->{$opt_name}->{value};
}

package option_bool;
sub new
...
    bless($self);
    return $self;
}