} # end of Car class

my $car = Car->new(
    { name => 'Toyota', drive => '4wd', body => 'wagon', engine_cap => 2010 } );

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

print $/;

$car = Car->new(
    { name => 'Kia', drive => 'fwd', body => 'sedan', engine_cap => 2008 } );

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