#!/usr/bin/perl

package Vehicle;
    sub new {
        my($class)  = shift;
        my(%params) = @_;
        bless {
            "Engine"    => $params{"Engine"},
            "Doors" => $params{"Doors"}
            }, $class;
    }

package Car;
    our @ISA = (Vehicle);

 sub new {
        my($class) = shift;
        my(%params) = @_;
        my($self) = Vehicle->new(@_);

        $self->{"Colour"} = $params{"Colour"};

        return(bless($self, $class));
    }

package main;
    my $car = Car->new(
        "Engine"    => "1800cc",
        "Doors" => "4",
        "Colour"   => "blue");


    print("I have an "  . %{$car}->{'Engine'} . "\n");
    print("I have "    . %{$car}->{'Doors'} . "\n");
    print("The color is "   . %{$car}->{'Colour'}   . "\n");

##</code><code>##

I have an 1800cc
I have 4
The color is blue

##</code><code>##

I have an Engine 1800cc
I have 4 Doors
The color is Colour blue