#!/usr/bin/perl -w
######################################################################
# garage.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

######################################################################
package Garage;                   # garage class

sub new {
    bless {};
}

######################################################################
package Car;                     # Car class

sub new {
    bless {};
}

sub setgarage {                   # associate garage
    my $self = shift;

    $self->{'garage'} = shift;
}

######################################################################
package main;                     # main program

$garage = Garage->new();
$car   = Car->new();

$car->setgarage($garage);