package Bob::MyObject;
    use strict;
    
    sub new {
		my $proto = shift;
	    	my $class = ref($proto) || $proto;
	    	my $self  = {
	                command       => undef
	     	};
	     	bless ($self, $class);
	     	return $self;       
    }