Here is the entire sub new:

sub new
{
    my $class = shift;
    my %options = @_;

    my $self = {
        _serial => $options{'serial'},
        _log    => $options{'log'},
        _horcm  => $options{'horcm'},
        _does_get_cmd_status => $options{'does_get_cmd_status'},
    };

    bless $self, $class;

    $array_objects{$options{'serial'}} = $self;
    return $self;
}
[download]