package Bob;
sub new {bless({}, shift)->init}
sub init {
    my $self = shift;
    $self->{command} = undef;
    $self;
}
my $bob = Bob->new;