#!/usr/bin/perl -l
# Test program
use ClassA;
use ClassB;
use ClassC;

my $a = ClassA->new();
my $b = ClassB->new();
my $c = ClassC->new();

print $a->getclass();
print $b->getclass();
print $c->getclass();

$b->{name} = 'bee';
print $b->{name};

$c->{name} = 'see';
print $c->{name};

$b->{city} = 'wok';
print $b->{city};

$c->{model} = 't';
print $c->{model};