sub new {
    my $class = shift;
    my $self = {};
    my $self->{name} = ""; # later assign this var with 'Yoda'
    bless $self,$class;
    return $self;
}