sub new {
    my $class = shift;
    return bless { engine => "engine", wheels => "wheels", etc...}, $class;
}

sub get_foo {
    my $self = shift;
    return $self->{engine,wheels,etc...};
}