Select Code to Download

use warnings;
use strict;
...
        my $self = shift;
        return $self->{name};
    }

    sub drive_type {
        my ( $self, $drive ) = @_;
...
        }
        return $self->{'engine_cap'};
    }

} # end of Car class

...

print join " " => $car->car_name,
  $car->drive_type, $car->body_type, $car->engine_cap;