#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

###########################################################
package Garage;                   # Garagenklasse

sub new {
    bless {};
}

###########################################################
package Auto;                     # Autoklasse

sub new {
    bless {};
}

sub setgarage {                   # Garage zuordnen
    my $self = shift;

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

###########################################################
package main;                     # Hauptprogramm

$garage = Garage->new();
$auto   = Auto->new();

$auto->setgarage($garage);