Select Code to Download

package ClassA;

...
}

1;

package ClassB;

...
  $self->{c} = ClassC->new();
}
1;

package ClassC;

...
  $self->{b} = ClassB->new();
}
1;

#!/usr/bin/perl -l
# Test program
...

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